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ABSTRACT 

Instructions  in  the  organization  and  use  of  the  computer  programs  which 
implement  the  Initial  NATO  Reference  Mobility  Model  (INRMM)  are  oresented. 

Volune  II  is  devoted  to  the  INRHH  Obstacle-Crossing  Module.  A brief  description 
of  the  mathematical  equations  and  computing  algorithms  which  predict  the  speed 
of  a vehicle  over  a variety  of  terrain,  the  input  data  required,  and  the  outputs 
generated  is  included.  Some  aid  to  the  interpretation  of  various  output  vari- 
ables i s given. 
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FOREWORD 


NATO  AC/225  Panel  II  in  1976  recognized  the  need  for 
standardized  NATO  techniques  of  comparing  overall  vehicle  per- 
formance in  terms  of  mobility,  armor  protection,  and  fire 
power.  The  United  States  offered  to  help  initiate  this  effort 
in  the  field  of  mobility  models. 

Panel  II  accepted  this  offer  and  formed  AC  225/Working 
Group  I (WGI)  in  February  1977  to  consider  a NATO  Reference 
Mobility  Model.  The  membership  of  WGI  was  as  follows:  Canada, 
France,  the  Federal  Republic  of  Germany,  the  Netherlands,  the 
'initad  Xingdom,  and  the  United  States  of  America. 

The  first  meeting  of  WGI  was  held  in  the  United  States 
6-9  June  1977.  WGI  reviewed  the  US  Army  Mobility  Model  as  a 
potential  candidate.  It  was  agreed  that  the  US  Army  Mobility 
Model  was  acceptable  as  an  initial  model,  pending  improvements 
in  certain  submodels. 

Shortly  after  the  first  meeting  the  US  furnished  a 
magnetic  tape  to  each  member  country  containing  the  source  code 
of  the  US  Army  Mobility  Model,  and  the  U.S.  extended  aid  in 
implementing  the  model  on  the  national  computers  of  the  member 
countries. 
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WGI  met  the  second  time  in  Brussels  9-12  Mav  1978. 


The  group  identified  certain  shortcomings  which  had  to  he  over- 
come before  the  Army  Mobility  Model  became  acceptable  as  a 
NATO  Reference  Mobility  Model.  The  need  for  o User's  Guide 
was  strongly  emphasized  at  that  time.  i^GI  proposed  to  Panel 
II  that  a Technical  Management  Committee  be  formed  to  maintain 
the  model  and  to  assess  proposed  revisions  periodically. 

The  proposed  revisions  and  corrections  were  expected  to  evolve 
from  mobility  research  and  simulation  work  conducted  by  memoer 
countries  and  from  continued  use  of  the  model. 

Panel  II  approved  the  recommendations,  and  WGI  was 
then  disestablished.  In  its  stead,  the  Technical  Management 
Committee  (TMC)  of  the  NATO  Reference  Mobility  Model  was 
formed  with  the  same  membership,  fir.  Peter  W.  Haley  of  the 
US  Army  Tank-Automotive  Research  6 Development  Command  was 
named  manager  of  the  model,  and  serves  as  the  focal  point  for 
the  uniform  maintenance  of  the  model  and  as  custodian  of  the 
official  version.  Panel  II  accepted  the  US  Army  Mobility  Model 
as  the  “Initial  NATO  Reference  Mobility  Model“. 

Curing  the  ensuing  period,  the  member  countries, 
especially  the  US,  invested  significant  effort  improving  the 
model.  The  obstacle  module  was  improved;  the  on-road  module 
was  reworked;  the  acceleration  routines  were  improved; 
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maneuvering  in  vegetation  was  newly  modeled,  r'inaliy,  too 
vehicle  dynamics,  module,  VEHDYN,  wai  substan cially  augmented. 

A draft  of  this  guide  was  also  completed. 

The  first  meeting  of  the  Technical  Management  Committee 
took  place  in  Frankfurt,  Germany  6-8  November  1879.  The 
participating  countries  and  the  heads  of  delegations  were  as 
follows:  France  (Mr.  Grosjean),  Germany  (Mr.  Schenk),  the 

Netherlands  (COL  van  Assenraad),  the  United  Kingdom  (Mr.  I'.aggett), 
and  the  United  States  (Mr.  Janosi).  Each  country  was  represented 
by  several  additional  officials  and/or  technical  experts.  The 
Committee  accepted  the  improved  Initial  Mobility  Model  as 
lascribed  i;i  this  report.  Therefore,  this  model  is  no  longer 
referred  to  as  the  Initial  N'TO  Reference  Mobility  Model.  It 
is  now  the  NATO  Reference  Mobility  Model,  Edition  I.  It  will 
be  “frozen"  until  the  next  TMC  meeting.  (Note  that  the  term 
"Initial  NATO  Reference  Mobility  Model"  or  "INRHM"  is  often 
used  in  this  report  because  it  was  written  prior  to  the  first 
TMC  meeting.) 

Members  of  the  TNG  agreed  that  orderly  changes  and 
extensions  are  desirable  to  meet  future  needs.  Each  country 
listed  tasks  whioh  would  lead  to  such  changes  and  extensions. 

It  was  agreed  that  the  most  important  feature  to  be  included 
into  a future  edition  is  tracked  vehicle  steering. 
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Currently,  ".he  memner  countries  are  enqaqed  in  pertinent 
research  work  which  will  lead  to  further  improvement  and  exten- 
sion of  the  NRMM.  Canada's  main  contribution  is  expected  to 
be  in  the  area  of  improved  simulation  in  mobility  over  snow, 
ice,  and  muskeg;  trance  is  engaged  in  research  concerning 
tracked  vehicle  turning;  Germany  is  active  in  vehicle  dynamics 
research,  field  testing,  mobility  evaluation  techniques,  and 
on-the-road  mobility  simulation;  the  Netherlands  is  pursuing  a 
study  to  improve  the  vehicle  data  preprocessor,  and  to  develop 
a uniform  vehicle  data  acquisition  procedure;  the  United  Kingdom 
developed  an  advanced  power  train  simulation  which  may  be  in- 
corporated into  a later  edition;  the  United  States  mobility 
research  effort  is  concentrated  mainly  on  vehicle  agility  modeling. 

The  NATO  community  agreed  to  use  this  model  as  a 
common  basis  for  communication  with  respect  to  quantifying  off- 
road mobility  performance.  Meanwhile  steps  have  been  taken  in 
the  US  to  introduce  the  NATO  Reference  Mobility  Model  into  the 
initial  acquisition  process  of  military  vehicles.  In  other  jords, 
quantitative  mobility  performance  projections,  analysis  and 
evaluation  by  bidders  and  source  seleccion  boards  will  be  based 
on  the  NRMM  during  the  initial  acquisition  process.  The  degree 
of  required  details  in  the  computational  projections  will  depend 
on  the  scope  c£  the  acquisition. 
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Potential  bidders  should  request  additional  inforniation 
from  TARADCOM,  DRDTA-2SA. 

Foreign  companies  with  legitimate  need  should  send 
their  requests  through  channel  established  within  the  frame- 
work of  Data  Exchange  Agreements  between  the  US  Army  and  the 
military  establishment  of  their  country. 

We  hope  that  tne  NATO  community  will  find  the  User's 
Guide  a useful  tool  in  the  vehicle  research  develooment  and 
acquisition  process. 

20LTAN  J.  UANOSI 
TARADCOM 

Chairman,  NATO  Reference 
Mobility  Model,  Technical 
Management  Committee 
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I INTRODUCTION  AND  OVERVIEW* 

The  Initial  NATO  Reference  Mobility  Model  (INRMM)  is  a 
collection  of  equations  and  algorithms  designed  to  simulate  the 
cross-country  movement  of  vehicles.  It  was  developed  from  several 
predecessor  models,  principally  AMC-?'^  (Jurkat,  Nuttall  and  Haley 
(1975)).  This  report,  in  several  volumes,  provides  some  background  and 
motivation  for  most  aspects  of  the  Model,  and  presents  documentation 
for  the  coded  version  now  available  through  the  U.  S.  Army 
Tank-Automotive  Research  and  Development  Command  (TARADCOM). 

A.  Background 

Rational  design  and  selection  of  military  ground  vehicles 

requires  objective  evaluation  of  an  ever-increasing  number  of  vehicle 

system  options.  Technology,  threat,  operational  requirements,  and  cost 
constraints  change  with  time.  Current  postures  must  be  reexamined,  new 

options  evaluated,  and  new  trade-offs  and  decisions  made.  In  the 
single  area  of  combat  vehicles,  for  example,  changes  in  one  or  another 
influencing  factor  might  require  trade-offs  that  run  the  gamut  from 
^ opting  for  an  air  or  ground  system,  through  choosing  wheels,  tracks  or 
air  cushions,  to  designating  a new  tire. 

The  former  Mobility  Systems  Laborato'y  of  the  then  U.  S.  Army 
Tank-Automotive  Command  (TACON)  and  the  U.  S.  Army  Engineer  Waterways 
^ f".  Experiment  Station  (WES)  are  the  Army  agencies  responsible  for 

I 
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• This  chapter  is  adapted  from  Jurkat,  Nuttall  and  Hiley  (1975). 
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conducting  ground  mobility  research.  In  1971,  a unified  U.  S.  ground 
mobility  program,  under  the  direction  of  the  then  Arny  Materiel 
Command  (AMC),  was  implemented  that  specifically  geared  the 
capabilities  of  both  laboratories  to  achieve  common  goals. 

As  a first  step  in  the  unified  program,  a detailed  review  was 
made  of  existing  vehicle  mobility  technology  and  of  the  problems  and 
requirements  of  the  various  engineering  practitioners  associated  with 
the  military  vehicle  life  cycle.  One  basic  requirement  was  identified 
as  common  to  all  practitioners  surveyed:  the  need  for  an  objective 
analytical  procedure  for  quantitatively  assessing  the  performance  of  a 
vehicle  in  a specified  operational  environment.  This  is  the  need  that 
is  addressed  to  a substantial  extent  by  the  INRMM  and  its 
predecessors . 

In  theory,  a single  methodology  can  serve  some  of  the  needs  of 
all  major  practitioners,  provided  it  relates  vehicle  performance  to 
basic  characteristics  of  the  vehicle-driver-terrain  system  at 
appropriate  levels  of  detail. 

Three  principal  categories  of  potential  users  of  the 
methodology  were  identified:  the  vehicle  development  community,  the 
vehicle  procurement  community,  and  the  vehicle  user  community  (Figure 
I.A.1).  The  greatest  level  of  detail  is  needed  by  the  design  and 
development  engineer  (vehicle  design  and  development  community)  who  is 
interested  in  subtle  engineering  details — for  example,  wheel  geometry, 
sprung  masses,  spring  rates,  track  widths,  etc. — and  their 
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PROSPECTIVE  USERS  OF  VEHICLE  PERFORMANCE  PREDICTION  METHODOLOGY 


FIGURE  :-A-l 

interactions  with  soil  strength,  tree  stems  of  various  sizes  and 
spacings,  approach  angles  in  ditches  and  streams,  etc.  At  the  other 
end  of  the  spectrum  is  the  strategic  planner  (user  community),  who  is 
interested  in  such  highly  aggregated  characteristics  as  the  average 
cross-country  speed  of  a given  vehicle  throughout  a specified 
region--the  net  result  of  many  interactions  of  the  engineering  details 
with  features  of  the. total  operational  environment.  Between  these  two 
extremes,  is  the  person  responsible  for  selection  of  the  vehicles  who 
must  evaluate  the  effect  of  changes  of  major  subsystems  or  choose  from 
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concepts  of  early  design  stages.  To  be  responsive  to  the  needs  of  all 
three  user  connun Ities , the  methodology  must  be  flexible  enough  to 
provide  compatible  results  at  many  levels  and  In  an  appropriate 
variety  of  formats. 

Interest  In  a single,  unified  methodology  applicable  to  the 
needs  of  these  three  principal  users  led  to  the  creation  of  a 
cross»country  vehicle  computer  simulation  combining  the  best  available 
knowledge  and  models  of  the  day.  Much  of  this  knowledge  was  collected 
In  Rula  and  Nuttall  (1971).  The  first  realisation  of  the  simulation 
was  s series  of  computer  programs  known  ss  the  AIIC*71  Nobility  Nodel, 
called  ANC-71  for  short  (US  ATAC(1973)).  This  model  first  became 
cperatlprial  in  >971;  it  ;»as  published  in  1973*  It  was  conceived  as  the 
first  generation  of  a family  whoae  deacendanta,  under  the  evolutionary 
pressures  of  subsequent  research  and  validation  tenting  reaults, 
application  experiences,  and  growing  uaer  requirementa,  would  be 
characterized  by  greater  accuracy  and  applicability.  A relatively 
current  status  report  may  be  found  in  Nuttall,  Rula  and  Dugoff  (1974). 

The  firat  deaeendant,  known  aa  ANC«74,  is  the  baais  for  the 
IMRNN.  It  ia  documented  in  Jurkat,  Nuttall  and  Haley  (1975).  The 
following  is  a deaoription  of  thla  model. 
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B.  Modeling  Off-Road  Vehicle  Mobility 

In  undertaking  mobility  modeling,  the  first  question  to  be 
answered  was  the  seemingly  easy  one:  What  is  mobility?  The  answer  had 
been  elusive  for  many  years.  Semantic  reasons  can  be  traced  to  the 
beginnings  of  mobility  research,  but  there  was  also  a pervasive 
reluctance  to  accept  the  simple  fact  that  even  intuitive  notions  about 
a vehicle's  mobility  depend  greatly  on  the  conditions  under  which  it 
is  operating.  By  the  mid-19603,  however,  a consensus  had  emerged  that 
the  maximum  feasible  speed -made-good*  by  a vehicle  between  two  points 
in  a given  terrain  was  a suitable  measure  of  its  intrinsic  mobility  in 
that  situation. 

This  definition  not  only  identified  the  engineering  measure  of 
mobility,  but  also  its  dependence  on  both  terrain  and  mission.  When, 
at  a suitably  high  resolution,  the  terrain  involved  presents  the 
identical  set  of  impediments  to  vehicle  travel  throughout  its  extent, 
mobility  in  that  terrain  (ignoring  edge  effects)  is  the  vehicle's 
maximum  straight-line  speed  as  limited  only  by  those  impediments.  But 
when,  as  is  typically  the  case,  the  terrain  is  not  so  homogeneous,  the 
problem  immediately  becomes  more  complex.  Maximum  speed-made-good  then 
becomes  an  interactive  function  of  terrain  variations,  end  points 
specified,  and  the  path  selected.  (Note  that  tne  last  two  constitute 
at  least  part  of  a detailed  mission  statement.)  As  a way  to  achieve  a 
useful  simulation  in  this  complicated  situation  the  INRHH  deliberately 

•Speed-made-good  between  two  points  is  the  straight-line  distance 
between  the  points  divided  by  total  travel  time,  irrespective  of  path. 
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sinoLifies  the  real  areal  terrain  into  a mosaic  of  terrain  units 
-within  each  of  which  the  terrain  characteristics  are  considered 
sufficiently  uniform  to  permit  use  of  the  simple,  maximum 
straight-line  speed  of  the  vehicle  to  define  its  mobility  in,  along, 
or  across  that  terrain  unit.  A terrain  unit  or  segment  specified  for  a 
road  or  trail  is,  similarly,  considered  to  have  uniform 
characteristics  throughout  its  extent. 

Maximum  speed  predictions  are  made  for  each  terrain  unit 
without  concern  for  whether  or  not  distances  within  the  unit  are 
adequate  to  permit  the  vehicle  to  reach  the  predicted  maximum.  This 
vehicle  and  terrain-specif ic  speed  prediction  is  the  basic  output  of 
.Ti  mcdel.  The  model  i.i  .iddiMc;!,  generates  Jati  that  may  be  used  to 
predict  operational  vibration  levels,  mission  fuel  consumption,  etc., 
and  can  provide  diagnostic  information  as  to  the  factors  limiting 
speed  performance  in  the  terrain  unit. 

The  speed  and  other  performance  predictions  for  all  terrain 
units  in  an  area  can  be  incorporated  into  maps  that  specify  feasible 
levels  of  performance  that  a given  vehicle  might  achieve  at  all  points 
in  the  area.  At  this  point,  the  output  is  reasonably  general  and  is 
essentially  independent  of  mission  and  operational  scenario 
influences.  The  basic  data  constituting  the  maps  must  usually  be 
further  processed  to  meet  the  needs  of  specific  users.  These  needs 
vary  from  relatively  simple  stat  sties  or  indices  reflecting  overall 
vehicle  compatibility  with  the  terrain,  to  extensive  analyses 
involving  detailed  or  generalized  missions.  None  of  these  so  called 
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J.  v-rall  Structure  of  the  INRMM 

In  formulating  AMC-71,  it  was  recognized  that  its  ultimate 
usefulness  to  decision  makers  in  the  vehicle  development,  pro  urement, 
and  user  communities  would  depend  upon  its  realism  and  credibility. 

(See  Nuttall  and  Dugoff  (1973)-)  These  perceived  requirements  led  to 
several  more  concrete  objectives  related  to  the  overall  structure  of 
the  moael.  It  was  determined  that  the  model  should  be  designed  to: 

1.  Allow  validation  by  parts  and  as  a whole. 

2.  Make  a clear  distinction  between  engineering  predictions  and 
any  whose  outcome  depends  significantly  upon  human  judgment, 
with  the  latter  kept  visible  and  accessible  to  the  model 
user . 

3.  be  updatea  readilv  i''  resoense  tc  naw  vehicle  ami 
vehicle-terrain  cecnnology. 

4.  Use  measured  subsystem  performance  data  in  place  of 
analytical  predictions  when  and  as  available  and  desired. 

These  objectives,  plus  the  primary  goal  of  supporting  decision 
making  relating  to  vehicle  performance  at  the  several  levels,  clearly 
dictated  a highly  modular  structure  that  could  both  provide  and  accept 
data  at  the  subsystem  level,  as  well  as  make  predictions  for  the 
vehicle  as  a whole.  The  resulting  gross  structure  of  the  model  is 
illustrated  in  Figure  I.C.1. 

At  the  heart  of  the  model  are  three  independent  computational 
modules,  each  comprised  of  analytical  relations  derived  from  ‘ 

laboratory  and  field  research,  suitably  coupled  in  the  particular  type 
of  operation.  These  are: 

0 

I 

i 

I 

t 
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The  Areal  Module,  which 
for  a single  vehicle  In 


cooputes  the  maximum  feasible  speed 
a single  areal  terrain  unit  (patch). 


«• 


C 


2. 


The  Linear  Feature  Module,  which  computes  the  minimum 
feasible  time  for  a single  vehicle,  aided  or  unaided,  to 
cross  a uniform  segment  of  a significant  linear  terrain 
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feature  such  as  a stream,  ditch,  or  embankment  (not  currently 
available)  . 

3.  The  Road  Module,  wnich  computes  the  maximum  feasible  speed  of 
a single  vehicle  traveling  along  a uniform  segment  of  a road 
or  trail. 

These  Modules  and  the  Terrain  and  Vehicle  Preprocessors  are  collected 
in  a computer  program  called  NRMM  and  are  described  in  Volume  I. 

These  three  Modules  may  be  used  separately  or  together. 
Alternately,  INfiMM  has  the  ability  to  simulate  travel  from  terrain 
unit  to  terrain  unit  in  the  sequence  given  by  the  terrain  input  file. 
In  this  mode,  known  as  thj  traverse  mode,  sufficient  output  data  can 
be  provided  so  that  the  user  may  calculate  acceleration  and 
leceleration  times  and  distances  between  and  across  terrain  unit 
toundaries,  and  thereby  determine  actual  travel  time  and 
speed-made-good  over  a chosen  route. 

All  three  modules  draw  from  a common  data  base  that  describes 
quantitatively  the  vehicle,  the  driver,  and  the  terrain  to  be  examined 
in  the  simulation.  The  general  content  of  the  data  base  is  shown  in 
Table  I.C.1. 
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TABLE  I.C. 1 

Terrain,  Vehicle,  Driver  Attributes  Characterized  in  INRMM 

Data  Base 


Terrain 

Surface  Composition 
Type 

Strength 

Surface  Geometry 
Slope 
A1 titude 

Discrete  Obstacles 

Roughness 

Road  Curvature 

Road  Width 

Road  Superelevation 

Vegetation 
Stem  Size 
Stem  Spacing 

Linear  Geometry 

Stream  cross  section 
Water  velocity 
Water  depth 


Vehicle 

Geometric 

character i sties 

Inertial 

characteristics 

Mechanical 

characteristics 


Driver 

Reaction  Times 

Recognition  distance 

Acceleration  and 
Impact  tolerances 

Minimum  acceptable 

speeds 


R-<^058,  VOLUME  II 
Obstacle  Module 


Page  12 


D.  Model  Inputs  and  Preprocessors 

1.  Terrain 

For  the  purposes  of  the  model,  each  terrain  u>'Ut  is  described 
at  any  given  time  by  values  for  a series  of  22  mathematically 
independent  terrain  factors  for  an  areal  unit  (including  lake  and 
marsr.  factors),  10  for  the  cross  section  of  a linear  feature  to  be 
negotiated,  and  9 to  quantify  a road  segment.  General-purpose  terrain 
data  also  include  separate'  values  for  several  terrain  factor  values 
that  vary  during  the  year.  For  example,  at  present  such  general  data 
for  areal  terrain  include  four  values  for  soil  strength  (dry,  average, 
wet,  and  wet-wet  seasons)  and  four  seasons!  values  for  recognition 
distances  in  vegetated  areas.  Similar  variations  in  effective  ground 
roughness,  resulting  from  seasonal  changes  in  soil  moisture  (including 
freezing)  and  in  the  cultivation  of  farm  land,  can  be  envisioned  for 
the  future.  Further  details  on  the  terrain  factors  used  are  given  in 
Rula  and  Nuttall  (1975). 

As  discussed  earlier,  the  basic  approach  to  representing  a 
complex  terrain  is  to  subdivide  it  into  areal  patches,  linear  feature 
segments,  or  road  segments,  each  of  which  can  be  considered  to  be 
uniform  within  its  bounds.  Besides  supplying  actual  values  for  the 
terrain  factors,  this  concept  may  be  Implemented  by  dividing  the  range 
of  each  individual  terrain  factor  value  into  a number  of  class 
intervals,  based  upon  considerations  of  vehicle  response  sensitivity 
and  practical  measurement  and  mapping  resolution  problems.  A patch  or 
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a segment  is  then  defined  by  the  condition  that  the  class  interval 
designator  for  each  factor  involved  is  the  same  throughout.  A new 
patch  or  segment  is  defined  wnenever  one  or  more  factors  fall  into  a 
new  class  interval. 


Before  being  used  in  the  three  computational  Modules,  the  basic 
terrain  data  are  passed  through  a Terrain  Data  Preprocessor,  called 
TPP  in  the  Computer  Program  NRMM.  This  preorocessor  does  three  things: 

1,  Converts  as  necessary  all  data  from  the  units  in  which  they 
are  stored  to  inches,  pounds,  seconds  and  radians,  which  are 
used  throughout  the  subsequent  performance  calculations. 

2,  Selects  prestored  soil  strengths  and  visibility  distances 
according  tc  run  specifications,  unicn  are  supplied  as  part 
of  the  scenario  data  'see  below). 

3,  Calculates  from  the  terrain  measurements  in  the  basic  terrain 
data  a small  number  of  mathematically  dependent  terrain 
variables  used  repeatedly  in  the  computational  module.s. 


2.  Vehicle 

The  vehicle  is  specified  in  the  vehicle  data  base  in  terms  of 
its  basic  geometric,  Inertial,  and  mechanical  characteristics.  The 
complete  vehicle  characterization  as  used  by  the  performance 
computation  modules  Includes  measures  of  dynamic  response  to  ground 
roughness  and  obstacle  impact,  and  tne  clearance  and  traction 
requirements  of  the  vehicle  while  it  is  negotiating  a parametric 
series  of  discrete  obstacles. 


c 
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The  model  structure  permits  use  at  these  points  of  appropriate 
Jdta  uerived  either  from  experiments  or  from  supporting  stand-alone 
jimuLations  used  as  pr eorocessor s . One  supporting  two-dimensional  ride 
and  obstacle  crossing  Dynamics  Module  for  obtaining  requisite  dynamics 
responses! currently  called  VEHDYN  and  described  in  Volume  III)  and  a 
second  supporting  Module  for  computing  obstacle  crossing  traction 
requirements  and  interferences  (currently  called  O0S783  and  described 
in  this  Volume)  are  available  as  elements  of  the  IHRMM.  Both  derive 
some  required  information  from  t'e  basic  vehicle  data  base,  and  both, 
when  used,  constitute  stand-alone  vehicle  data  preprocessors. 

There  is  also  a Vehicle  Data  Preprocessor  called  VPP  (integral 
to  NRMM)  wnich,  like  tne  Terrain  Data  P-eprccessor . has  thr-fe 
funct ion j : 

1.  Conversion  of  vehicle  input  data  to  uniform  inches,  pounds, 
seconds,  and  radians. 

2.  Calculation,  from  the  input  data,  of  controlling  soil 
performance  parameters  and  other  simpler  dependent  vehicle 
variables  subsequently  used  by  the  computational  modules,  but 
usually  not  readily  measured  on  a vehicle  or  available  in  its 
engineering  specifications. 

3.  Computation  of  the  basic  steady-state  traction  versus  speed 
characteristics  of  the  vehicle  power  train,  from  engine  and 
power  train  characteristics. 


As  in  the  case  of  dynamic  responses  and  obstacle  capabilities, 
the  lust  item,  the  steady-state  tractive  force-speed  relation,  may  be 
input  directly  from  proving  ground  data,  when  available  and  desired. 


• J 
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3.  Driver 

The  driver  attributes  used  in  the  nodel  characterize  the  driver 
in  terms  of  his  limiting  tolerance  to  shock  and  vibration  and  his 
ability  to  perceive  and  react  to  visual  stimuli  affecting  his 
behaviour  as  a vehicle  controller.  While  these  attributes  are 
identified  in  Figure  I.C.l  and  Table  I.C.1  as  part  of  the  data  base 
INRMM  provides  for  their  specific  identification  and  user  control  so 
that  the  effects  of  various  levels  of  driver  motivation,  associated 
with  combat  or  tactical  missions,  for  example,  can  be  considered. 

y.  Scenario 

Several  optional  features  are  available  to  the  user  of  the 
INRMM  (weather,  presumed  driver  motivation,  operational  variations  in 
tire  inflation  pressure)  which  allow  the  user  to  match  the  model 
predictions  to  features  or  assumptions  of  the  full  operational 
scenario  for  which  predictions  are  required.  Model  instructions  which 
select  and  control  these  options  are  referred  to  as  scenario  Inputs. 

The  scenario  options  Include  the  specification  of: 

1.  Season,  which,  when  seasonal  differences  In  soil  strength 
constitute  a part  of  the  terrain  data,  allows  selection  of 
the  soil  strength  according  to  the  variations  In  soil 
moisture  with  seasonal  rainfall,  and 

2.  Weather,  which  affects  soil  slipperiness  and  driving 
visibility,  (including  dry  snow  over  frozen  ground  and 
associated  conditions). 

3.  Several  levels  of  operational  influences  on  driver  tolerances 
to  ride  vibrations  and  shock,  and  on  driver  strategy  in 
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negotiating  vegetation  ano  using  brakes. 

4.  Reasonable  play  of  tire  pressure  variations  to  suit  tlie  mode 
of  operat  iori--on-road  , cr' ss-countr  y , and  in  sand. 
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E.  Stand-Alone  Simulation  Modules 

As  indicated  above,  the  Mof:!  is  implemented  sy  a senes  of 
independent  Modules.  The  Terrair  and  Vehicle  Preprocessors,  already 
described,  form  two  of  these.  Two  further  major  stand-alone  simulation 
Modules  will  now  be  outlined. 

1.  Obstacle-crossing  Module-OBS78B 

This  Module  determines  interferences  and  traction  requirements 
when  vehicles  are  crossing  the  kind  of  minor  ditches  and  mounds 
characterized  as  part  of  the  areal  terrain;  it  12  described  fully  in 
this  Volume.  It  is  used  as  a stand-alone  Preprocessor  Module  to  the 
Areal  Module  of  INRMM. 

The  Obstacle-crossing  Module  simulates  the  in'^lination  and 
position,  interferences,  and  traction  requiremints  of  a 
two-dimensional  (vertical  center-line  plane)  vehicle  crossing  a single 
obstacle  in  a trapezoidal  shape  as  a mound  or  a ditch.  The  module 
determines  a series  of  static  equilibrium  positions  of  the  vehicle  as 
it  progresses  across  the  obstacle  profile.  Extent  of  Interference  is 
determined  by  comparison  of  the  obstacle  profile  and  the  displaced 
vehicle  bottom  profile.  Traction  demand  at  each  position  is  determined 
by  the  forces  on  driven  running  gear  elements,  tangential  to  the 
obstacle  surface,  required  to  maintain  the  vehicle's  static  position. 
Pitch  compliance  of  suspension  elements  is  not  accounted  for  but  frame 
articulation  (as  at  pitch  joints,  trailer  hitches,  etc)  is  permitted. 
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Tb'i  ^-bst ac  1 e-c ross  1 ng  Module  produces  a table  of  minimum 
'ledrances  (or  maximum  interferences)  and  average  and  maximum  force 
lequireu  to  cross  a representative  sample  of  obstacles  defined  by 
combinations  of  obstacle  dimensions  varied  over  the  ranges  appropriate 
for  features  ircludea  in  the  areal  terrain  description.  This 
simulation  is  done  only  once  for  each  vehicle.  Included  in  the  INRMM 
Areal  Module  is  a three-dimensional  linear  interpolation  routine 
which,  for  any  given  set  of  obstacle  parameters,  approximates  from  the 
derived  table  the  corresponding  vehicle  clearance  (or  interference) 
and  associated  traction  requrements.  Obviously,  the  more  entries  there 
are  in  the  table,  the  more  precise  will  be  the  determination. 

2.  Ride  Dynamics  Module-  VtHDYN 

The  Areal  Module  examines  as  possible  vehicle  speed  limits  in  a 
given  terrain  situation  two  limits  which  are  functions  of  vehicle 
dynamic  perceptions:  speed  as  limited  by  the  driver's  tolerance  to  his 
vibrational  environment  when  the  vehicle  is  operating  over 
continuously  rough  ground,  ^nd  speed  as  lioited  by  the  driver's 
tolerance  to  impact  received  while  the  vehicle  is  crossing  discrete 
obstacles.  It  is  assumed  that  the  driver  will  adjust  his  speed  to 
ensure  that  his  tolerance  levels  will  not  be  exceeded. 

The  Ride  Dynamics  Module  of  INRMM,  called  VEHDYN  and  described 
in  Volume  III,  computes  accelerations  and  motions  at  the  driver's 
station  (and  other  locations,  if  desired)  while  the  vehicle  is 
operating  at  a given  speed  over  a specific  terrain  profile.  The 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  19 


profile  may  be  continuously,  randomly  rough,  may  consist  solely  of  a 
single  discrete  obstacle,  uniformly  spaced  obstacles  of  a specific 
height  or  may  be  anything  in  between.  From  the  computed  motions, 
associated  with  driver  modeling  and  specified  tolerance  criteria, 
simple  relations  are  developed  for  a given  vehicle  between  relevant 
terrain  measurements  and  maximum  tolerable  speed.  The  terrain 
measurement  to  which  ride  speed  is  related  is  the  root  mean  square 
(rms)  elevation  of  the  ground  profile  (with  terrain  slopes  and 
long-wavelength  components  removed).  The  terrain  descriptors  for 
obstacles  are  obstacle  height  and  obstacle  spacing. 

The  terrain  parameters  involved,  rms  elevaojon  and  obstacle 
height  and  spacing,  are  factors  quantified  in  each  patch  description, 
and  rms  elevation  is  specified  for  each  road  segment.  Preprocessing  of 
the  vehicle  data  in  the  ride  dynamics  module  provides  an  expedient 
means  of  predicting  dynamics-based  speed  in  the  patch  and  road  segment 
modules  via  a simple,  rapid  table-lookup  process. 

The  currently  implemented  Ride  Dynamics  Module  is  a digital 
simulation  that  treats  vehicle  motions  in  the  vertical  center-line 
plane  only  (two  dimensions).  It  is  a generalized  model  that  will 
handle  any  rigid-frame  vehicle  on  tracks  and/or  tires,  with  any 
suspension.  Tires  are  modeled  using  a segmented  wheel  representation, 
(see  Lessem  (1968))  and  a variation  of  this  representation  is  used  to 
introduce  first-order  coupling  of  the  road  w)ieels  on  a tracked  vehicle 
by  its  tracks. 
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•3)  l/Tiver  model  and  tolerance  criteria. 

It  has  been  shown  empirically  that,  in  the  continuous  rouj,  iness 
situation,  driver  tolerance  is  a function  of  the  vibrational  power 
being  absorbed  by  the  body.  (See  Pradko,  Lee  and  Kaluza  (1966).)  The 
seme  work  showed  that  the  tolerance  limit  for  representative  young 
American  males  is  approximately  6 watts  of  continuously  absorbed 
power,  and  the  research  resulted  in  a relatively  simple  iaodel  for 
power  absorption  by  the  body.  The  body  power  absorption  model,  based 
upon  shaping  filters  applied  to  the  decomposed  acceleration  spectrum 
at  the  driver's  station,  is  an  integral  part  of  the  INRMM 
two-dimensional  dynamics  simulation. 

In  the  past,  only  the  6 watt  criterion  was  used  to  determine  a 
given  vehicle's  speed  as  limited  by  rms  roughness.  More  recent 
measurements  in  the  field  have  shown  that  with  sufficient  motivation 
young  military  drivers  will  tolerate  more  than  6 watts  for  periods  of 
many  minutes.  Accordingly,  INRMM  will  accept  as  vehicle  data  a series 
of  ride  speed  versus  rms  elevation  relations,  each  corresponding  to  a 
different  absorbed  power  level,  and  will  use  these  to  select 
ride-speed  limits  according  to  the  operationally  related  level  called 
for  by  the  scenario.  The  Ride  Dynamics  Module  will,  of  course,  produce 
the  required  additional  data,  but  some  increased  running  time  is 
involved . 

The  criterion  limiting  the  speed  of  a vehicle  crossing  a single 
discrete  obstacle,  or  a series  of  closely,  regularly  spaced  obstacles. 
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13  a peak  acceleration  at  the  driver's  seat  of  2.5-g  passing  a 30-Hz. 
filter.  Data  relating  the  2.5-g  speed  limit  to  obstacle  height  and 
spacing  can  be  developed  in  the  ride  dynamics  module  by  inputting 
appropriate  obstacle  profiles. 

INRMM  requires  t.^o  obstacle  impact  relations:  the  first,  speed 
versus  obstacle  height  for  a single  oostacle  (spacing  very  great);  and 
the  second,  speed  versus  regular  obstacle  spacing  for  that  single 
obst^le  height  (from  the  single  obstacle  relation)  which  limits 
vehicle  speed  to  a maximum  of  15  mph.  For  obstacles  spaced  at  greater 
than  two  vehicle  lengths,  the  single-obstacle  speed  versus  obstacle 
height  relation  Is  used.  For  closer  spaclngs,  the  least  3?*ed 
allowable  by  either  relation  is  selected. 

3.  Main  Computational  Modules  - NRMM 

The  highly  iterative  computations  required  to  predict  vehicle 
performance  in  each  of  the  many  terrain  units  needed  to  describe  even 
limited  geographic  areas  are  carried  out  in  the  three  main 
computational  modules.  Each  of  these  involve  only  direct  arithmetic 
algorithms  which  are  rapidly  processed  in  modern  computers.  In  INRHH, 
even  the  Integrations  required  to  compute  acceleration  and 
deceleration  between  obstacles  within  an  areal  patch  are  expressed  in 
closed,  algebraic  form. 

Terrain  Input  data  Include  a flag,  which  signifies  to  the  model 
whether  the  data  describes  an  areal  patch,  a linear  feature  segment. 
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or  j road  segment.  This  flag  calls  up  the  appropriate  computational 
Module . 


a)  Arc  . Terrain  Unit  Module 


This  Module  calculates  the  maximum  average  speed  a vehicle 
could  achieve  and  maintain  while  crossing  an  areal  terrain  unit.  The 
speed  is  limited  by  one  or  a combination  of  the  following  factors: 


1.  Traction  available  to  overcome  the  combined  resistances  of 
soil,  slope,  obstacles,  and  vegetation. 

« 

2.  Driver  discomfort  in  negotiating  rough  terrain  (ride  comfort) 
and  his  tolerance  to  vegetation  and  obstacle  impacts. 

3.  Driver  reluctance  to  proceed  faster  than  the  speed  at  which 
the  vehicle  could  decelerate  to  a stop  within  the,  poi'sibly 
limited,  visibility  distance  prevailing  in  the  areal  unit 
(braking-visibility  limit). 

4.  Maneuvering  to  avoid  trees  and/or  obstacles. 

5.  Acceleration  and  deceleration  between  obstacles  if  they  are 
to  be  overriden. 

6.  Damage  to  tires. 


Figure  I.E.1  .shows  a general  flow  chart  of  how  the  calculations  of  the 
Areal  Module  are  orr^anized. 


After  determination  of  some  vehicle  and  terrain  - dependent 
factors  used  repetitively  in  the  patch  computation  (1),*  the  Module  is 
entered  with  the  relation  between  vehicle  steady-state  speed  and 
theoretical  tractive  force  and  with  the  minimum  soil  strength  that  the 
vehicle  requires  to  maintain  headway  on  level,  weak  soils^  These  data 

* Numbers  in  parentheses  correspond  to  numbers  in  Figure  I.E.1. 
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ire  provided  by  the  vehicle  data  pr eproceasor . Soil  and  slope 
resistances  (2)  and  braking  force  limits  are  computed,  and  the 
basic  tractive  force-speed  relation  is  modified  to  account  for 
soil-limited  traction,  soil  and  slope  resistances,  and  resulting  tire 
or  track  slip.  Forces  required  to  override  prevailing  tree  stems  are 
calculated  for  eight  cases  (3):  first,  overriding  only  the  smallest 
stems,  then  overriding  the  next  largest  class  of  stems  as  well,  etc., 
jntil  in  the  eighth  case  all  stems  are  being  overridden. 

Stem  override  resistances  are  combined  with  the  modified 
tractive  force-speed  relation  to  predict  nine  speeds  as  limited  by 
basic  resistances  (5).  (The  ninth  speed  corresponds  to  avoiding  all 
tree  stems  . ) 


Maximum  braking  force  and  recognition  distance  are  combined  to 
compute  a visibility-limited  speed  (6).  Resistance  and 
visibility-limited  speeds  are  compared  to  the  speed  limited  by  tire 
Loading  and  inflation  (7),  if  applicable,  and  to  the  speed  limit 
imposed  by  driver  tolerance  to  vehicle  motions  resulting  from  ground 
roughness  (8).  The  least  of  these  speeds  for  each  tree 
override-and-avold  option  becomes  the  maximum  speed  possible  between 
obstacles  by  chot  option,  except  for  degradation  due  to  maneuvering 
(9). 


Obstacle  avoidance  and/or  the  tree  avoidance  implied  by  limited 
stem  override  requires  the  vehicle  to  maneuver  (or  may  be  impossible). 
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Jsing  speed  reduction  factors  (derived  in  1)  associated  with  avoiding 
all  obstacles  (if  possible)  and  avoiding  tne  appropriate  classes  of 
tree  stems,  a series  of  nine  possible  speeds  (possibly  including  zero, 
or  NOGO)  IS  computed  (10). 

A similar  set  of  nine  speed  predictions  is  made  for  the  vehicle 
maneuvering  to  avoid  tree  stems  only  (10).  These  are  further  modified 
by  several  oostacle  crossing  considerations. 

Possible  NOGO  interference  between  the  vehicle  and  the  obstacle 
is  checked  (12).  If  obstacle  crossing  proves  to  be  NOGO,  all 
associated  vegetation  override  and  avoid  options  are  also  NOGO.  If 
there  arc  no  critical  interferences,  the  increase  in  traction  required 
to  negotiate  the  obstacle  is  determined  (12). 

Next,  obstacle  approach  speed  and  the  speed  at  which  the 
vehicle  will  depart  the  obstacle,  as  a result  of  the  momentarily  added 
resistance  encountered,  are  computed  (13).  Obstacle  approach  speed  is 
taken  as  the  lesser  of  the  speed  between  obstacles,  reduced  for 
maneuver  required  by  each  stem  override  and  avoid  option,  and  the 
speed  limited  by  the  driver  to  control  his  crossing  impact  (11). 

Speeds  off  the  obstacle  are  computed  on  the  basis  solely  of  the 
soil-and  slope-modified  tractive  force-speed  relation  (22),  l.e. 
before  the  tractive  fores  speed  relation  is  modified  to  account  for 
vegetation  . .-rride  forces,  the  traction  Increment  required  fo'* 
obstacle  neg  lation,  or  any  kinetic  energy  available  as  a result  of 
the  associated  obstacle  approach  speed  (13). 
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Finn!  average  speed  in  the  patch  for  each  of  the  nine  tree  stem 
override  and  avoid  options,  while  the  vehicle  is  overriding  patch 
obstacles,  is  computed  from  the  speed  profile  resulting,  in  general, 
from  considering  the  vehicle  to  accelerate  from  the  assigned  speed  off 
the  obstacle  to  the  allowable  speed  between  obstacles  (or  to  a lesser 
speed  if  obstacle  spacing  is  insufficient),  to  brake  to  the  allowable 
obstacle  approach  speed,  and  to  cross  the  obstacle  per  se  at  the 
computed  crossing  speed. 

Following  a final  check  to  ensure  that  traction  and  kinetic 
energy  are  sufficient  for  single-tree  overrides  required  (and  possible 
resetting  of  speeds  for  some  options  to  NOGO)  a single  maximum 
n-patbh  speed  (for  the  direction  of  travel  being  considered  relative 
to  the  in-unit  slope)  is  selected  from  among  the  nine  available  values 
associated  with  obstacle  avoidance  and  the  nine  for  the  obstacle 
override  cases.  If  all  18  options  are  NOGO,  the  patch  is  N0(X3  for  the 
direction  of  travel.  If  several  speeds  are  given,  selection  is  made  by 
one  of  two  logics  according  to  scenario  input  instructions. 

In  the  past  the  driver  was  assumed  to  be  both  omniscient  and 
somewhat  mad.  Accordingly,  the  maximum  speed  possible  by  any  of  the  18 
strategies  was  selected  as  the  final  speed  prediction  for  the  terrain 
unit  (and  slope  direction).  Field  tests  have  shown,  however,  that  a 
driver  does  not  often  behave  in  this  ideal  manner  when  driving  among 
trees.  Rather,  he  will  take  heroic  measures  to  reach  som*  reasonable 
minimum  speeo,  but  will  not  continue  such  efforts  when  those  measures 
involve  knocking  down  trees  that  he  judges  it  imprudent  to  attack, 
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even  though  by  doing  so  he  could  go  still  faster.  In  INRMM,  either 
assignmeht  of  maximum  speed  may  be  made:  the  absolute  maximum  which 
addresses  the  vehicle's  ultimate  potential,  or  a lesser  value  which  in 
effect  more  precisely  models  actual  driver  behavior. 

If  the  scenario  data  specify  a traverse  prediction,  the  in-unit 
speed  and  other  predictions  are  complete  at  this  point,  and  the  model 
stores  those  results  specified  b/  the  user  and  goes  on  to  consider  the 
next  terrain  unit  (or  next  vehicle,  condition,  etc).  When  a full  areal 
prediction  is  called  for,  the  entire  computation  is  repeated  three 
times:  once  for  the  vehicle  operating  up  the  in-unit  slope,  once 
across  the  slope,  and  once  down  the  slope.  Desired  data  are  stored 
from  e.och  such  run  prior  to  the  next,  and  at  the  conclusion  of  the 
third  run,  the  three  speeds  are  averaged.  Averaging  is  done  on  the 
assumption  that  one-third  of  the  distance*  will  be  travelled  in  each 
direction,  resulting  in  an  omnidirectional  mean. 


* the  average 
speeds , i .e . 


speed,  is  the  harmonic  average  of  the  three 

3/[(1/Vup)  * (1/Vacross)  ♦ 
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b)  Road  Module 

The  Road  Module  calculates  the  maximum  average  speed  a vehicle 
can  be  expected  to  attain  traveling  along  a nominally  uniform  stretch 
of  road,  termed  a road  unit.  Travel  on  super  highways,  primary  and 
secondary  roads,  and  trails  is  distinguished  by  specifying  a road  type 
and  a surface  conaition  factor.  From  these  characteristics,  values  of 
tractive  and  rolling  resistance  coefficients  for  wheeled  and  tracked 
vehicles  on  hard  surfaced  roads  are  determined  by  a table  look-up.  For 
trails,  surface  condition  is  specified  in  terns  of  cone  index.  (Cl)  or 
rating  cone  index  (RCI).  Traction,  motion  resistance,  and  slip  are 
computed  using  the  soil  submodel  of  the  Areal  Module,  with  scenario 
weathe'"  factors  u-sed  in  the  same  way  as  in  making  off-roaa 
prc-d  let  ions . 

The  relations  used  for  computing  vehicle  performance  on  smooth, 
hard  pavements  are  taken  from  the  literature  (Smith  (197U)  and  Taborek 
( 1957)) . 

The  structure  of  the  Road  Module,  while  nuch  simpler,  parallels 
that  of  the  Areal  Module.  Separate  speeds  are  conputed  as  limited  by 
available  traction  and  countervailing  resistances  (rolling, 
aerodynamic,  grade,  and  curvature),  by  ride  dynamics  (absorbed  power), 
by  visibility  and  braking,  by  tire  load,  inflation  and  construction, 
and  by  road  curvature  per  se  (a  feature  not  directly  considered  in  the 
Areal  Module) . The  least  of  these  five  speeds  is  assigned  as  the 
maximum  for  the  road  unit  (for  the  assumed  direction  relative  to  the 
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specified  grade). 

The  basic  curvature  speed  limits  are  derived  from  American 
Association  of  State  Highway  Officials  (AASHO)  experience  data  for  th 
four  classes  of  roads  (AASHO  (1975))  under  dry  conditions  and  are  not 
vehicle  dependent.  These  are  appropriately  reduced  for  reduced 
traction  conditions,  and  vehicle  dependent  checks  are  made  for  tippin 
or  slidiiig  while  the  vehicle  is  in  the  curve. 

At  the  end  of  a computation,  data  required  by  the  user  are 
stored.  If  the  model  is  run  in  the  wraverse  mode,  the  model  returns  t 
compute  values  for  the  next  unit;  if  in  the  areal  mode,  it 
automatically  computes  performance  for  both  the  up-grade  and 
down-grade  situations  and  at  the  conclusion  computes  the  bidirectiona 
(harmonic)  average  speed.  Scenario  options  are  similar  to  those  for 
the  Areal  Module. 
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II  ALGORITHMS  AND  EQUATIONS 


A.  Introduction 


The  Obstacle  Module,  0BS78B,  is  a stand  alone  program  which 
simulates  the  placement  of  the  vehicle  at  a sequence  of  positions 
across  the  obstacle  and  for  each  position  calculates 


1.  the  tractive  forces  under  the  running  gear  to  maintain  that 
position , 

and 

2.  the  clearances/interferences  between  the  frame  of  the  vehicle 
and  the  obstacle  at  that  position, 

and  then 


3.  selects  the  maximum  interference,  CLRMIN,  (or  minimum 
clearance  if  there  is  no  interference)  and  the  maximum 
tractive  effort,  FOOMAX,  and  calculates  the  average  tractive 
effort,  FOO,  across  the  various  positions. 


Figure  II. A.  1 gives  an  overall  view  of  the  structure  of  the  Obstvcle 
Module . 


The  obstacles  are  restricted  to  the  "standard"  trapezoidal 
shape  used  throughout  the  INRHM.  The  effect  of  the  predominant  slope 
may  be  included  in  OBS78B,  but  there  are  currently  no  provisions  for 
incorporating  the  predominant  slope  in  combination  with  obstacle 
crossing  in  the  Operational  Modules.  Thus,  for  the  Obstacle  Module  the 
terrain  input  may  be  characterized  as  illustrated  in  Figure  II. A. 2. 

There  is  a restriction  in  OBS78B  that  the  combination  of  slops 
and  obstacle  approach  angle  may  not  exceed  the  vertical  for  any 
obstacle  flank  on  which  the  vehicle  may  rest. 
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FIGURE  II. A. 2 * Obstacle  Geonetry 


f 


The  vehicle  is  restricted  to  two  units,  a prime  mover, 
supported  by  suspension  assemblies  at  two  points,  and  a trailer, 
supported  by  a suspension  assembly  at  one  point  with  a hitch  rigidly 
attached  to  the  prime  mover  about  which  the  trailer  may  pivot.  The 
suspension  assemblies  are  rigid  (no  springs  or  dampers)  and  may  be 
single  wheeled  or  "bogied",  which  for  the  purposes  of  0BS78B  means  tw( 
wheels  attached  to  a rigid  member  which  pivots  about  its  center  at  thi 
suspension  support  point.  This  motion  is  restricted  by,  possibly 
different,  pitch  up  and  down  limits  with  respect  to  the  frame  of  the 
vehicle.  Any  mix  of  single  wheeled  or  bogle  suspensions  may  exist  on 
the  prime  mover-trailer  combination.  The  wheels  are  also  assumed  rigic 
but  need  not  have  the  same  radii  for  all  suspension  assemblies. 
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tlowever,  Doth  wheels  on  a bogie  have  the  sjme  radius. 


Tracked  vehicles  may  be  simulated  by  a double  bogie  wheeled 
vehicle  where  the  wheel  radius  is  the  road  wheel  radius  plus  the 
thickness  of  the  track.  The  bogie  centers  may  be  located  anywhere  the 
user  wishes;  reasonable  results  have  teen  obtained  by  using  the 
location  of  the  second  and  second-f rom-last  roadwheei  centers.  The 
width  of  the  bogie,  defined  as  the  distance  between  the  centers  of  the 
two  wheels  on  the  bogie,  is  also  at  the  discretion  of  the  user; 
reasonable  results  have  been  obtained  by  choosing  the  distance  between 
two  road  wheels.  Wl;en  the  bogie  center  and  width  have  been  chosen,  the 
bogie  angular  limits  should  then  be  set  to  reflect  the  actual  road 
wheel  displaced  as  if  fhe  track  were  present  at  its  normal  tension. 
Tins  wiji,  result’  in  a large  pitch  up  angul.^r  limit  for  the  front  bogie 
and  a smaller  pitch  down  angular  limit.  The  rear  bogie  will  have  the 
reverse  angular  limits. 


When  the  vehicle  da^a  has  been  read  by  the  program,  some 
initial  calculationa  are  done.  These  are  described  more  fully  below. 
The  program  then  reads  the  obstacle  shape  and  calculates  hub  profiles. 
These  profiles  are  intended  to  simulate  the  path  taken  by  the  wheel 
centers  across  the  obstacle,  assuming  a rigid  wheel  and  uninterrupted 
contact.  The  program  will  use  one  of  these  two  possible  hub  profiles 


across  a mound: 
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FIGURE  II. A. 3 * Hub  Profiles  Across  Hounds 


or  one  of  these  four  possible  hub  profiles  across  a ditch: 


FIGURE  1 1 .A  <4  - Hub  Profiles  Across  Ditches 
It  may  be  observed  that  the  vertical  variation  of  the  hub 
profile  may  be  attenuated  when  compared  to  that  of  the  obstacle 
profile;  this  effect  may  occur  both  for  the  net  change  in  elevation 
and/or  the  rate  of  that  change.  This  attenuation  Increases  as  the 
radius  of  the  wheel  Increases  with  respect  to  the  obstacle  dimensions. 

Tracked  vehicles,  In  effect,  attenuate  obstacles  as  If  they 
were  equipped  with  very  large  wheels.  The  exact  equivalent  wheel 
diameter  which  attenuates  an  obstacle  as  does  the  tracked  suspension 
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element  is  not  readily  calculated,  and  for  any  one  vehicle  may  not  be 
constant  for  all  obstacles.  In  the  Obstacle  Module,  two  different 
wheel  sizes  are  used  to  simulate  tracked  vehicles: 

1.  for  a flexible  track  the  radius  of  the  wheel  used  to 
calculate  the  hub  profile  is  set  at  one-half  the  distance 
between  suspension  element  support  points,  and 

2.  for  a non-flexible  (girderized)  track  the  radius  of  the  wheel 
used  to  calculate  the  hub  profile  is  set  at  the  full  distance 
between  suspension  element  support  points. 

Figure  II. A. 5 shows  the  vehicle  parameters  used  in  the  module  and 
indicates  the  vehicle  configurations  which  can  be  simulated. 

Tracked  vehicles  pulling  trailers  are  not  simulated. 

All  horizontal  dimensions  are  positive  to  the  right  of  the 
hitch  and  negati-o  to  tiie  left.  Ail  vertical  dimensions  are  measured 
witn  respect  to  the  ground  when  the  vehicle  is  empty  and  at  rest  on 
level,  hard  ground.  Vehicle  motion  Is  assumed  from  left  to  right. 

N.B.:  Either  or  both  of  the  suspension  elements  of  the  prime  mover 
may  be  single  wheel  or  bogie  supports.  The  hitch  may  be  located  before 
the  second  axle  to  possibly  simulate  a fifth  wheel. 

The  wheels  of  a suspension  element  may  be  powered  braked,  both 
or  neither.  Suspension  types  may  be  mixed  in  any  combination  but 
both  wheels  of  a bogie  suspension  ere  assumed  to  have  the  same  radius 
and  ability  to  be  powered  and  braked.  During  execution  of  the  program. 


I 


ii  I 
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however,  at  any  position  on  the  obstacle  either  all  braked  wheels  are 
braked  or  all  powered  wheels  are  powered. 
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B.  Coordinate  Systems 

Four  separate  coordinate  systems  are  used  in  OBS78B,  vehicle 
input  data  coordinates,  vehicle  coordinates,  ground  fixed  coordinates 
and  vehicle/ground  coordinates.  Each  system  is  specified  below. 

1.  Vehicle  Input  Data  Coordinates 

This  coordinate  system  (Figure  II.B.l)  is  centered  at  a point 
on  the  ground  directly  under  the  hitch  when  the  vehicle  is  resting  on 
a hard,  flat  surface  and  facing  toward  the  right  of  the  observer. 


Z 


All  vehicle  input  data  is  given  with  respect  to  this  coordinate 
system,  it  is  used  only  for  the  conveni*nce  of  the  investigator;  all 
data  is  immediately  transferred  to  the  Vehicle  Coordinates. 
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2.  Vehicle  Coordinates 

This  coordinate  system  is  centered  at  the  hitch  and  moves  with 
the  prime  mover.  Seo  Figure  II. B. 2. 


Z 


The  x-axis  is  horizontal  and  fixed  to  the  vehicle  when  the  vehicle  is 
at  rest  on  hard,  flat  ground.  Thus  the  Vehicle  Coordinates  are 
initially  parallel  to  the  Input  Data  Coordinates  translated  vertlcall 
a distance  of  the  height  of  the  hitch  for  an  empty  vehicle.  The  pitch 
angle  of  the  vehicle,  O]  , is  in  effect  the  angle  the  vehicle  x-axis 
makes  with  the  Ground  Fixed  Coordinate  System. 

3.  Ground  Fixed  Coordinate  System 

This  coordinate  system  remains  fixed  to  the  grpund  and  is 
centered  at  the  first  obstacle  profile  break  point.  Its  coordinates 
are  designated  with  primed  quantities.  The  z'-axls  is  positive  up, 
along  the  negative  gravity  vector,  and  the  x'-axis  is  positive  to  the 
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rignc.  See  Figure  II. B. 3- 


z' 


FIGURE  II. 8-3  *■  Ground  Fixed  Coordinates 

4 Vehicle  Fixed-''round  Parallel  Coordinate  System 

Tiiis  coordinate  system  is  centered  at  the  hitch  and  moves  with 
the  vehicle;  however  it  remains  parallel  to  the  Ground  Fixed 
Coordinate  System.  Initially  it  coincides  with  the  Vehicle  Coordinates 
when  the  vehicle  is  at  rest  on  hard,  flat  ground.  Its  coordinates  are 
designated  by  a superscript  F. 

The  relationship  between  the  three  program  coordinate  systems 
is  illustrated  in  Figure  II. B. 4. 

C.  OBS78B  Vehicle  Preprocessor 

After  the  vehicle  data  is  read,  several  derived  vehicle 
descriptors  are  calculated.  These  descriptors  are  given  in  terms  of 
the  vehicle  coordinates. 
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slope 


FIGURE  II.B.U  --  Relation  of  Thtee  Coordinate  Systems 

Since  the  vehicle  load  distribution  is  given  for  an  empty 
vehicle,  a combined  vehicle-load  CG  is  calculated  (superscript  e mean 
empty  vehicle). 


The  empty  vehicle  weight  at  the  vehicle  CG: 
•^Sgi  = -Fql  - P'q2 

The  x-coordinate  of  the  empty  vehicle  CG: 

*5ci=  -(fqlll  ♦ fq2l2>  /f^GI 
The  empty  trailer  weight  at  the  trailer  CG: 

^2g2  = -fq3  - ^hO 

The  x-coordinate  of  the  empty  trailer  CG: 

*CG2  = ■'^q3^3^  ^5c2 

The  loaded  weights  at  the  combined  CG: 

*^CG1  = f?G1  -^'*1 
^CG2  = *^5g2  ^2 
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The  coordinates  of  the  combined  vehicle/Joad  CG: 

’'CGi  = (J'Sci  Fc,ii 

^CGi  = (f?Gi  zCGi 

where  il  for  the  vehicle,  2 for  the  trailer. 

From  now  on  these  coordinates  of  the  loaded  vehicle  will  be  called  t 
vehicle  and  trailer  CG  coordinates. 

The  radius  vector  from  the  CG  to  the  hitch  in  polar  coordinates: 

’’hi  = tx^Gi  ♦ 2^Gi  ^ 

«ohi  = arctan(  zcQi/xcci ) 1 " 

where  ii1  for  the  vehicle,  2 for  the  trailer. 


FIGURE  il.C.I--  Hitch  and  Trailer  CG  Location 

N.B.:  Radius  vector  is  from  vehicle  CG  to  hitch  and  from  hitch  to 
trailer  CG. 

bQjii  is  adjusted  to  lie  in  the  interval  n ]. 

The  polar  coordinates  of  the  vehicle  suspension  support  points: 
^BCi  = [ di  - *CG1^^  ♦ (r^  _ h - zcGl^^  is1.2 


) 
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®BCi  = arctan[  (r^  - h - Zcoi^/  ' *CG1^^  • ^=’-2 


FIGURE  1 1 .C  .2  ••  Vehicle  Suspension  Support  Point  Locations 


I 

The  following  are  calculated  for  each  suspension  element  which  is 
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coordinates  of  the  suspension  support  center  with 
respect  to  tne  first  unit  CG. 

\il  :[  (XB+(Di/2)cos6ui  -xrci)^  ♦(bi/2)sinBui  -zCGi)^^’^^ 

RLi2  :[(xB-(bi/2)cos6di  -xcGl)^  -( bi/2)3in0di  -zcGl)^^’^^ 

:arctan[(ZB  >( bi/2)3in6ui  -zcGl)  ^^*8  bi/2)co30ui  -xcGl)! 

^Li2  =arctan[(zB  -(bi/2)3in0di  -zcg2)  /(*B  -(bi/2)co3Bdi  -xcG2)] 
For  the  trailer,  theae  polar  coordinatea  are  given  with  respect  to 

tne  hitch : 


FIGURE  II.C.4  --  Trailer  CG  and  Suspension  Support  Location 


^ r 2 2 il/2 

'^h2  = ^*CG2  ♦ ^CG2  J 

®0h2  = arctan  (Zcc2  ' *CG2^ 

■■BC3  = * <'■3 

*BC3  * arctan  [(r^  -h  1/13  ] 


I 
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are  the  coordinates  of  the  trailer  suspension  support 
point  in  vehicle  cocroinates. 

”l31  = t(*hB  ♦(b3/2)cosey3)2  ♦ (z^g  r{b3/2)sinBu3)2 
Tl3i  = 3rctan[(ZhB  ♦(b3/2)sin0„3 ) /( x^b  ♦(b3/2)cos0u3) ] 

”l32  = t(*hB  -ib3/2)cose(j3)2  ♦ (z^g  -(b3/2)sinp(j3)2] ^^2 

Tl32  = arctan  ((z^b  -(b3/2)sinBd3)/(XhB  -(b3/2)cospd3 ) ] 

The  effective  radius  of  the  wheels  to  be  used  In  the  hub  profile 
calculations  Is  set  to 

'"tl  = fi  for  wheeled  vehicle  unit 

= 1/2(li  - 13)  for  tracked  unit  with  flexible 
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Crack 

■ ''i  tracked  unit  with  girderized 

track . 

Since  the  use  of  niay  have  the  effect  of  raising  the  entire 
vehicle  far  above  the  ground  level,  the  result  may  be  that  no 
interference  between  venicle  bottom  and  the  ground  will  be  recorded 
when,  in  fact,  it  would  actually  occur.  To  avoid  this  difficulty,  the 
difference  between  the  hub  profile  effective  radius  and  the  normal 
radius 

aPRFDL  : r^^  . 

13  used  to  lower  the  vehicle  bottom  profile. 

The  vehicle  botccm  profile  itself  is  specified  in  tne  input 
data  as  the  location  of  breakpoints  given  in  the  vehicle  input 
coordinates.  These  breakpoints  are  then  shifted  to  the  vehicle 
coordinates.  The  preprocessor  calculates  the  length  and  direction  of 
the  radius  vector  to  each  of  these  breakpoints.  The  radius  vector 
originates  at  the  hitch  joint  for  both  the  prime  mover  and  the 
trailer. 


r, 


Z 


FIGURE  ll■C•6  *-  Specification  of  Vehicle  Bottom  Profile  Breakpoints 
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In  Figure  II. C. 6,  the  bottom  profile  points  are  marked  with  heavy  dot 
and  calculated  as  follows: 

'■cki  =t  xfkl 

®cki  = arctan  [(Vcki  “ BPRFDL)  / 

where  k = 1 denotes  the  prime  mover 
k = 2 denotes  the  trailer 

and 

for  i = 1 , . • . 

where  ia  the  number  of  bottom  profile  breakpoints  on  unit  k.  The 
hitch  may,  but  need  not  be,  included  as  a bottom  profile  breakpoint. 

This  completes  the  calculations  of  tne  03373B  vehicle 
preprocessor.  The  predominant  slope,  9^^  ia  read  and  then  the 
program  er.ters  the  obstacle  loop.  The  set  of  three  descriptors  for 
each  obstacle  is  read;  these  are  OBH,  OBAA,  and  OBW  as  defined  in 
section  III.B.  The  program  then  transfers  to  subroutine  OBGEOM  where 
the  hub  profiles  and  the  step  size  are  calculated. 

Before  transfer  to  OBGEOM,  a check  is  made  to  determine  if  the 
sum  of  the  predominant  slope  and  the  obstacle  approach  slope  exceeds 
the  vertical.  If  it  does,  an  error  message  is  printed,  calculations 
for  the  obstacle  arc  skipped  and  the  next  obstacle  ia  read. 
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D.  Subroutine  OBGEOM 

This  subroutine  introduces  the  obstacle  and  hub  profile  index 
scneme  used  throughout  the  program.  For  an  obstacle/wheel  combination 
uuch  that  all  hub  profile  flanks  are  present  it  is  illustrated  in 
Figure  II.D.l. 


5 6 


FIGURE  11. 0.1  ••  0b»tarle  and  Hub  Profile  Breakpoint  Indices 

Observe  that  all  obstacle  breakpoints  except  1 and  10  have  two 
indices.  This  is  to  accomodate  the  hub  profile  breakpoint  numbering 
which  may  result  in  two  profile  elements  for  each  obstacle  breakpoint. 
The  obstacle  and  hub  profile  flanks  are  given  the  number  of  their  left 
end  breakpoint  index  as  shown  in  Figure  II. D. 2.  For  obstacle/wheel 
combinations  that  give  rise  to  hub  profiles  of  fewer  elements,  some 
hub  profile  breakpoints  may  have  up  to  six  indices. 

The  ground  fixed  coordinate  system  always  has  its  origin  at  the 


obstacle  breakpoint  2. 
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5 

FIGURE  11.0.2  --  Obstacle  and  Hub  Profile  Flank  Indices 


The  approach  and  departure  flanks,  numbered  1 and  9 
respectively,  are  set  so  that  their  slope  is  the  predominant  slope. 

9g,  and  their  length  is  sufficient  to  accomodate  ail  suspension 
elements  simultaneously  plus  1 inch.  The  vehicle  is  started  on  the 
approach  slope  .1  inches  from  initial  contact  with  a mound  or  with  its 
front  wheel  contact  point  .1  inches  from  hub  profile  element  number  2 
for  a ditch. 

Subroutine  OBGEOM  first  calculates  the  x z ' -coordinates  of  the 
obstacle  and  hub  profile  breakpoints  for  zero  predominant  slope.  It 
then  rotates  the  location  of  these  points  about  obstacle  breakpoint  2 

(the  x'z'  origin)  through  angle  the  length  of  each  of  the 

obstacle  and  hub  profile  elements  is  calculated.  In  addition,  for  each 
obstacle  element,  the  angle  with  respect  to  the  x'-axls  is  also  given. 
For  the  hub  profile  elements,  the  coefficients  of  the  general 
quadratic 

A^jx2  V B^jxz  > ♦ Dijx  > Eijz  ♦ Fij  =0 
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jre  calculated.  Here  the  subscript  j refers  to  the  hub  profile  element 
number  nnd  i refers  to  the  suspension  element  whose  wheels  generate 
It.  Since  hub  profile  elements  are  always  either  points,  lines,  or 
iTcs,  3.j  . 0 and  Aj^j  = 1 for  arcs  whereas  Aj^j= 

: 0 for  lines  a.nd  points. 

Finally,  OBGEOM  calculates  STEP,  the  distance  the  first  unit  CG 
will  be  moved  from  position  to  position  across  the  obstacle.  For  this 
version  of  the  Obstacle  Module,  STEP  is  constant  for  a 
vehic le/obstacle  combination  and  is  set  to  49t  of  the  shortest  hub 
profile  element  length  or  1 inch,  whichever  is  greater. 

E.  Initial  Values  and  Position 

When  the  vehicle  and  obstacle  have  been  completely  defined,  the 

initial  position  of  the  vehicle  on  the  approach  slope  is  calculated. 

Also,  initial  values  for  the  solutions  of  the  force  balance  equations 

are  set.  These  variables  (the  solution  variables  for  the  force  balance 

equations)  are  defined  as 

XN(1)  s overall  traction  coefficient 
XN(2)  3 normal  force  on  first  suspension  element 
XN(3)  = normal  force  on  second  suspension  element 
XN(4)  3 normal  force  on  third  suspension  element 
XN(5)  3 horizontal  hitch  force  applied  to  vehicle 
XN(6)  3 vertical  hitch  force  applied  to  vehicle 

For  initialization,  XN(1)  3 RT0W(1),  the  resistance  over  weight 

coefficient  of  the  first  suspension  element  (an  input  number);  XN(2), 

XN(3)t  and  XN(4)  are  set  to  the  normal  load  on  those  suspension 

elements  when  the  vehicle  is  at  rest  on  level  ground;  XN(5)  s 

0,  and  XN(6) 

r. 

J|. 


the  initial  hitch  load  when  the  trailer  Is  at 


0 
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rest  on  level  ground. 

To  position  the  vehicle,  the  following  calculations  are 
performed ; 

a)  the  first  wheel  is  positioned  1/10  inches  before  its  second 
hub  profile  breakpoint 

*w11  = Xh12  - -1  co3(9’) 

^wll  = Zh12  - sin^fis) 

b)  for  a single  wheel  first  suspension  element  the  bogie 
center  is  set  equal  to  the  first  wheel  center 

*BC1  = *w11 
^BCI  = Zwii 

for  a bogie  first  suspension  element,  the  second  wheel  is 
located  one  bogle  width  behind  the  first  and  the  bogie 
center  is  set  between  the  two  wheels 

*w12  = *w11  - co»(®3) 

^w12  = - b]  3in(9i) 

*BC1  = (*wn  ♦ *w12)/2 

^BCI  = (Zy^l  ♦ 

Pi  = arctan((ziii  - zii2)/  (*w11  - Xw12)) 
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c)  the  vehicle  pitch  angle  is  set  parallel  to  the  approach 
slope  angle 

9 1 = arctan( -E i ^ ) 

the  vehicle  CG  location  is  determined 

*001  = XBCl  - ^BCl  C03(®BC1 
^CGI  = 2bci  - fBci  sin(80ci  ^9^) 

and  the  location  of  the  second  suspension  bogie  center  is 
calculated 

t » » 

^BC2  = ^CGl  -*■  ^BC2  4OO 

( t I 

^BC2  = ^CGI  fBC2  3in(0BC2  +81) 

d)  for  a single  wheel  second  suspension,  the  location  of  the 
wheel  center  is  set  equal  to  the  location  cf  the  bogie 
center 

X'  - 

*w21  - *BC2 
^w21  = ^BC2 


f 

4 
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for  a bogie  second  suspension  element,  the  oogie  angle  is 
assumed  equal  to  the  pitch  angle  of  the  vehicle  and  the  ti 
wheel  centers  are  located  by 

*w21  = *BC2  (^52/2)  cosIO^  ) 

^w21  ■ ^BC2  sin(0^  ) 

*w22  " ’‘BC2  “ (82/2)  cos(0^  ) 

^w22  = ^BC2  (^2/2)  3in(Q^  ) 

e)  the  hitch  is  then  located  by 

*h  = XCGI  ♦ ^’hl  cos(®oh1  + ® 1 ) 

= ZCG1  ♦ f’hl  sin(0ohl  ® 1 ) 

For  the  simulation  of  tracked  vehicles  there  is  included, 
as  suspension  elements  4 and  5,  the  front  and  rear 
spridlers,  respectively.  In  simulating  a tracked  vehicle, 
front  spr idler/obstacle  interference  is  checked  after  step 
c)  above.  If  interference  is  found,  the  vehicle  is  moved 
away  from  the  obstacle  along  the  approach  slope  until  no 
interfe-'nce  is  found.  Thus  the  front  spridler  is  located 
by 

*s  = *CG1  ’’Bca  *BC4  *l) 

f f 

^3  = ^CGI  '■BC4  si"(*BC4  ♦®i) 
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These  two  coordinates  are  passed  to  subroutine  WHEELS  to 
calculate  how  far  above  or  below  the  front  spridler  hub 
profile  the  point  is  located. 

If  the  result  of  WHEELS  is  negative  the  spridler  is  below 
its  hub  profile  which  indicates  interference.  The  vehicle 
is  moved  backwards  on  the  obstacle  approach  slope  to  the 
point  where  hub  profile  element  S intersects  hub  profile 
element  1 of  the  front  spridler.  The  slope  of  hub  profile 
element  S is  given  by 

^^04  - ^02  - *02  ^ = ^2‘ 

The  slope  of  the  front  spridler  hub  profile  element  1 is 

given  by  s , ; tans!  . The  coordinates  of  the 
point  to  Which  the  front  spridler  center  must  be  moved  in 
order  to  just  touch  the  obstacle  is  given  by  the  solution 
of  the  following  two  equations 

(z  - zi)/(  X - x,)  : Si 

(z  - " *hU2^  = *2 

The  distance  the  vehicle  has  to  be  moved  back  to  Just  clear 
the  obstacle  is 

S = -x)2  ♦ (Zj  -z)2  . 

The  new  value  of  the  initial  coordinates  of  the  first  wheel 
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are  replaced  by  ( * ' , j -Rcoseg,  " RsinSg). 

The  calculations  from  b)  on  are  then  repeated. 

f)  once  all  the  values  describing  the  vehicle's  initial 
position  have  been  calculated,  the  trailer  (if  there  is 
one)  is  located.  Given  the  location  of  the  hitch 

(*hiZh)  and  length,  rg^j  , of  the  radius 
vector  from  the  hitch  to  the  trailer  suspension  support 
point,  the  subroutine  WHEEL2  locates  the  trailer  suspensi 
support  point  zg^^)  on  the  hub 

profile  of  the  trailer  wheels.  For  single  wheel  trailer 
suspension,  the  wheel  center  is  set  to  the  suspension 
support  point 

» f 

*wl3  = *BC3  single  wheel 

( I 

^w13  = ZBC3 

For  trailer  with  bogie  suspension,  the  wheels  are 
located  half  a bogie  am  before  and  behind  the  support 
point  by 

*w13  = *BC3  ♦ (^3/2)  cos(e2) 

^wl3  = ZbC3  ♦ (1)3/2)  3in(02) 


■ 
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’‘w2j  = *aC3  - (^3/2)  005(02) 

^w23  = *BC3  - (^3/2)  3in(e2) 

whore  0^  = 9^ . 

g)  The  trailer  CG  is  located  by 

*CG2  - *h  ♦'’h2  ®oh2  ^*2^ 

^CG2  = ^h  ♦Rh2  sin  ( ^h2  ♦®2) 

n)  and  the  angle  under  the  wheels  is  set  to  the  approach  slope 

= ®3  for  wheel  j of  suspension  element  i> 
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F.  Vehicle  Movement  Loop 

This  portion  of  the  program  calculates  the  clearance  or 
interference  between  the  bottom  frame  of  the  vehicle/trailer  and  the 
obstacle;  calculates  the  forces  between  the  wheels  and  the  surface  o 
the  approach  slope/obstacle/departure  slope  required  to  maintain  the 
vehicle  at  the  given  position;  and  then  moves  the  vehicle  to  a new 
position  on  the  approach  slope/obstacle/departure  slope  such  that  th 
distance  of  the  CG  at  the  new  position  from  the  CC  at  the  previous 
position  is  equal  to  STEP.  The  program  then  returns  to  the 
clearance /interference  calculations . 

The  movement  loop  is  organized  around  three  major  subroutines 
CLEAR,  FORCES,  and  MOVES.  An  exit  is  made  from  the  loop  when  the  froi 
wheel  clears  the  departure  slope. 

1 . Subroutine  CLEAR 

The  relationship  between  the  bottom  frame  of  the  vehicle  and/( 
trailer  and  the  obstacle  prefile  can  be  illustrated  by  Figure  II.F.1 
Here  the  location  of  the  obstacle  profile  breakpoints  are  given  by 

^*oi.  ) while  that  of  the  vehicle  frame 

breakpoints  are  given  by  z^kn  )•  The 

minimum  and  maximum  clearance/interference  between  frame  and  surface 
will  be  found  directly  under  a vehicle  frame  breakpoint  or  directly 
' above  an  obstacle  breakpoint.  This  is  a consequence  of  approx imatini 

^ ) both  the  frame  profile  and  the  obstacle  profile  by  straight  line 

i ■ 

» 
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nCUPE  II.F'I  •*  Relation  of  Bottom  ®rofiIe  of  Vehicle  to 

Obstacle  Profile 


segments . 


The  subroutine  first  calculates  the 
fcr  the  current  position  and  attitude  by 


*vt  ==  *h  '’oki  cos(  9 ♦ ®cki) 

<i  = Zh  * ^cki  3in(  a k " »cki) 

where  k = 1,2  is  the  vehicle  unit  number  and  i = designates 

the  points  on  the  frame  profile  of  unit  k.  The  routine  then  simply 
cycles  through  the  obstacle  breakpoints  to  determine  if  any  part  of 
the  vehicle  is  above  each  point  and  calculates  the  clearance  by 
linearly  interpolating  between  the  appropriate  vehicle  breakpoints. 
Similarly,  for  each  frame  profile  breakpoint,  the  obstacle  flank  under 
the  point  is  found  and  the  clearance  calculated.  The  mlnijuum 
clearance/maximum  Interference  Is  then  found  for  the  current  position 
of  the  vehicle  and  an  index  is  set  pointing  to  that  point  which  gave 


il 


R-2058,  VOLUME  II 
Obstacle  Module 


Page  6 


rise  to  the  minimum  clearance/maximum  interference. 

The  determination  of  the  overall  minimum  clearance  or  maximum 
interference  for  all  positions  of  the  vehicle  across  the  obstacle  is 
done  with  the  code  directly  following  the  call  to  CLEAR  in  the  main 
program . 

2.  Subroutine  FORCES 

This  subroutine  is  used  to  estimate  the  tractive  forces  needed 
to  overcome  obstacles.  This  is  done  by  evaluating  the  tangential 
tractive  forces  at  the  wheel/ground  interface  required  to  maintain  thi 
vehicle  at  the  current  nosition  on  the  obstacle.  Subroutine  FORCES 
makes  use  of  the  equation  solving  subroutine  EQSOL  and  subroutines 
NFORCE  and  CALFUN.  The  tractive  force  evaluation  is  performed  for  any 
combination  of  single  wheel  suspensions  and  bogie  suspensions 
supported  on  both  wheels  or  on  one  wheel. 

To  simplify  and  speed-up  calculations  eight  assumptions  were 

made : 

1.  Tires  and  suspensions  are  rigid. 

2.  Bogie  beams  can  rotate  about  the  pivot,  but  do  not  deflect. 

3.  Bogie  beams  take  only  normal  forces,  the  tangential  forces 
and  torque  are  transmitted  to  the  frame  by  parallel  bars  (A 
schematic  version  of  such  a oogie  suspension  is  shown  in 
Figure  II. F. 2). 


I 


<<.  The  bogie  pivot  is  in  the  middle  of  the  line  connecting  the 
wheel  centers. 
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5.  Wheel  radius  is  the  same  for  all  wheels  on  a bogie  suspensioi 

6.  Each  wheel  can  be  powered,  towed  or  braked  as  specified  by 
the  input  data. 

7.  No  provision  is  made  to  power  some  and  brake  ether  wheels  at 
the  same  time. 

8.  Coefficients  of  power  or  brake  forces  can  be  specified  by  thi 
ratios  (POWERR,  BRAKER)  in  the  input  data  to  allow  for 
different  soil  conditions  under  each  wheel. 


FIGURE  I i .F.  2 --  Schematic  of  Bogie  Suspension 

Based  on  the  above,  it  Is  assumed  that  normal  forces  to  the 
bogie  beam  are  equal  for  both  wheels  of  the  same  bogle  support.  The 
resulting  system  with  any  two  suspension  supports  on  the  main  unit  and 
another  on  the  trailer  is  statically  determinant.  The  togle  assembly 
transmits  force  to  the  frame  only  at  the  bogle  pivot  point. 
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This  routine  uses  the  vehicle  fixed-ground  parallel  coordinates 
x*^,z^.  Linear  dimensions  are  measured  from  the  hitch  point 
parallel  to  the  ground  fixed  coordinates  x^  and  directions.  The 
hitch  point  is  the  origin  of  the  x^,z^  coordinate  systems,  where 
the  xf  axis  is  always  horizontal  and  the  z*^  axis  is  vertical. 
Dimensions  forward  of  the  hitch  are  positive.  Dimensions  in  the 
z^-direction  above  the  hitch  are  positive,  below  the  hitch  are 
negative.  In  the  remainder  of  the  description  of  Subroutine  FORCES 
the  superscript  F will  be  omitted. 


Based  on  previously  made  assumptions,  the  bogie  can  be  treated 
as  a single  statically  determined  support  point.  In  this  case  even  the 
mam  unit  with  two  bogie  supports  is  statically  determined.  The  sum  of 
the  forces  (ground  reactions,  hitch  forces  and  weight)  must  be  zero  in 
the  X and  z directions,  and  the  moments  produced  by  those  forces  about 
any  given  point  also  have  to  be  equal  to  zero.  For  convenience  the 
point  about  which  the  moments  are  summed  is  the  hitch.  The  hitch  is  a 
common  point  for  both  units  (main  and  trailer).  For  clarity,  fore  s 
are  always  shifted  to  the  wheel  center  and  rotated  to  be  parallel  to 
the  x-z  coordinates.  Forces  at  the  hitch  point  are  also  resolved  in 
the  X and  z direction  (the  hitch  does  not  transmit  a moment). 


C 


As  input  to  this  routine  the  main  program  and  subroutine  MOVES 
supply  the  position  of  all  wheels,  bogie  centers,  bogie  beam  angles, 
bogie  beam  lengths,  wheel  radii,  surface  slope  angles  ^nder  the 
wheels,  center  of  gravity  locations  and  weights.  Also  entered  are 
initial  estimates  for 
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XN(1):  overall  coefficient  of  tractive  force  across  all 
wheels, 

XN(2):  normal  force  undf  the  first  wheel  of  the  first 
suspension  support,! 

XN(3);  normal  force  under  the  first  wheel  of  the  second 
suspension  support ,( F2^ ) 

XN(4):  normal  force  under  the  first  wheel  of  the  third 
suspension  support  (if  it  ex  ists  ) , ( ^ ) 

XN(5):  horizontal  force  on  the  hitch  of  the  trailer 

XN(6):  vertical  force  on  the  hitch  of  the  trailer  (^9170^2). 


N.B.;  The  last  three  terms  are  included  only  in  the  case  of  a vehicle 
with  d trailer. 

Subroutine  FORCES  uses  these  values  as  initial  values  in  an 
iteration,  controlled  by  EOSOL,  which  will  yield  new  values  for  XN(1) 
through  XN(6)  that  result  in  the  vehicle  resting  on  the  obstacle  in  a 
force  and  moment  equilibrium  state.  These  iterations  depend  on 
calculations  performed  by  two  subroutines,  NFORCE  and  CALFUN,  which 
essentially  evaluate  unbalanced  forces  and  moments  caused  by 
non-equilibrium  values  of  XN.  The  separation  of  the  calculation  into 
two  subroutines  is  a matter  of  programming  convenience.  The 
description  of  the  equations  below  does  not  distinguish  in  which 
subroutines  the  calculations  are  made. 


1 
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a)  Coefficient  of  Tractive  Force 

For  wheel  j of  suspension  support  i: 

Cjpijz  XN(1 )»POWERRij«IPi j for  XN(1)  > 0 

or 

Cjpij:  XN(  1 )»BRAK£Rij»IBi j for  XNd)  < 0 

where 

CjFij  = coefficient  of  tractive  force 
POWERR^j  ; Coefficients  for  distribution  of  tractive  force 
among  axles.  The  ratios  of  these  coefficients 
in  pairs  define  the  force  distributions. 

BRAKER^j  ; Coefficients  for  distribution  of  braking  force 

among  axles.  The  ratios  of  these  coefficients  in 
pairs  define  the  braking  force  distribution. 

IPj^j  : 1 , if  wheel  can  be  powered 
: 0 , otherwise 

IBj^j  : 1 , if  wheel  can  be  braked 
= 0 , otherwise. 

Note:  At  any  position  on  the  obstacle,  a combination  of  some  wheels 
powered  while  others  are  braked  is  not  modeled. 

b)  Force  Relations  for  Single  Wheel  Support 

Given  normal  force,  tractive  force,  rolling  force, wheel  rollir 
radius  and  slope  under  wheel,  the  forces  and  the  moment  at  the  wheel 
center  indicated  in  Fig. II. B. 20  are  calculated  as  follows: 
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(CxRi j»cos(®i j)  - sin(arij)) 

•^zi  = ^Nij*  (co3(»ij)  ♦CjRij  •5in(ffij)) 

= ^TFiJ 

where  J:1  and  i designates  the  suspension  support 

“TRIJ  - Coefficient  of  rolling  and  tractive  forces  defined 
as:  Cypjj  s CxFiJ  - Crrij 
FfRi  - Sub  of  rolling  resistance  and  tractive  force 

^TRi  = fNij'^TRlJ 

CpRij.  Coefficient  of  rolling  resistance 

or^j  - Slope  angle  under  wheel 

^NIJ  ~ force  under  wheel  normal  to  slope 

- Force  at  wheel  center  in  x-dlrectlon 


i 


i 


R-2058,  VOLUML' 
Obstacle  Module 


Page  5 


'zi  " at  wheel  center  in  z-direction 

- Moment  reaction  reduced  to  wheel  center.  The  moment 
.-eaction  is  due  to  the  tractive  force  shift.The  rollin 
force  is  shifted  to  the  wheel  center  without  a moment 
component . 

- Wheel  rolling  radius 

Note:  For  a single  wheel,  the  above  quantities  are  given  for  jul. 

The  corresponding  quantities  for  y-.2  are  not  used. 

c)  Force  Relations  for  Bogie  Support 

As  described  below  in  section  II. F. 3,  subroutine  MOVES,  the 
vehicle  may  be  located  either  with  both  wneeis  of  a bogie  assembly  on 
the  cfound  or  with  only  one  of  tae  pair  on  the  ground  when  the  bogie 
angular  motion  limit  is  reached.  The  force  relations  are  described 
separately  for  these  two  cases. 

(1)  Both  wheels  of  the  bogie  support  on  the  ground: 

Assuming  that  the  normal  force,  tractive  force  coefficient. 


rolling  resistance  coefficient  and  all  needed  geometry  are  known,  the 
normal  and  t.he  tangential  forces  acting  on  the  bogie  beam  at  wheel 
center  are  described  as  follows  (see  Fig . II  .F . ) : 
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FIGURE  II.F.L  — Forces  on  dogin  S'.seensicn  \.heri  Both 
’^eel;-  Ccntact  the  Surface 

The  angle  (interface  friction  angle)  that  the  resultant  force  vector 
under  the  wheel  makes  with  the  normal  to  the  under-wheel-slope  is: 
Yij  =arctan(Cjpi j - CRRij). 

The  magnitude  of  the  force  vector  at  the  center  of  the  front  wheel 
on  the  bogie  is: 

*^11  =PNil/  C03(Yil). 

The  normal  forc<  to  the  bogle  beam  is: 

*^NB1  = fi1  'cosCSii) 

where : 

»IJ  = >ij  -olj 

angle  of  bogle  beam  with  horizontal 

under-wheel-slope. 
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The  tangential  force  on  the  bogie  beam  due  to  the  first  wheel  is: 
^TBii:  Fi]  • sin{*ii). 

The  equations  for  the  normal  force  and  the  tangential  force  t 
the  bogie  beam  due  to  the  second  wheel  are  calculated  next,  based  on 
the  previously  made  assumptions  that  the  normal  force  to  the  bogie 
beam  is  equal  for  both  wheels. 

Force  F^2  at  the  second  wheel  center  is: 

*^12  = f^NBi/  co3(fii2)- 

The  tangential  force  for  the  second  wheel  is: 

’'TBi2=  ^12  *i2^* 

The  evaluated  normal  and  tangential  forces  and  moment  on  the 
bogie  beam  are  shifted  to  the  bogie  pivot  center  and  rotated  to  the 
vehicle  fixed-ground  parallel  coordinates. 

Forces  at  the  pivot  center  are: 

'^TBi  = ^TBil  '^TBi2 

*^xi  ="2*^NBi  •sinful)  •cosCP^) 

*^zi  ■ 2*^NBi  •sinlPj). 

Moment  at  pivot  center  is: 

Mi  ‘Fnii  'rj,  ♦Cjpi2  ••^Ni2  *'‘12 

where 

rij  srolllng  radius  of  wheel  J on  suspension  support  i. 
^xi'^zi  ■ bogie  pivot  center 

= moment  reaction  reduced  to  bogie  pivot  center 
Note:  The  same  rolling  radius  is  used  for  all  wheels  on  a 
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suspension  support 


(2)  Only  one  wheel  of  the  bogie  support  on  the  ground: 


Forces  at  the  wheel  center  are  evaluated  as  before  for  two 
wheel  bogie  support.  The  wheel  in  contact  is  designated  by  j.  In  the 
program  . ;is  is  indicated  by  the  variables  SFLAG  and  NW.  The  final 
force  and  moment  equations  reduced  to  the  pivot  center  are: 

^i  = -f^NBi  *co3(P  [) 

*^2i  - ^NBi  ‘coslel)  ♦pTBij  •sinlB^) 

^ --  CiFij  'hij  ‘rij  > FNBi  •bi/2 

where : 

if  front  wheel  of  bogie  assembly  is  on  the  ground  ( jsl) 

- if  rear  wheel  of  togie  asaetnui/  's  on  the  grourio  ( Js2) 
s bogie  arm  length 


Tractive  force,  rolling  resistance  force  and  reaction  moments 
are  calculated  as  follows: 


'"tIJ  = ^NiJ  • ^TFiJ 
*^RiJ  = ^NiJ  • Crrij 

Mij  = Fjij  • rij 


where: 


Tractive  force 
Rolling  resistance  force 
Reaction  moment,  due  only  to  the 
tractive  force 


^NiJ  ' Normal  force  under  the  wheel 
The  above  quantities  are  used  for  information  only,  they  are  not 
needed  by  the  rest  of  the  program. 
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d)  Force  and  Moment  Summation  for  Entire  Vehicle 

Sum  of  the  forces  in  x-direction  for  main  unit 

'^Mx  = f^xl  ♦ ■^x2  ♦ *'mCGx  -’^hx 
Sum  of  the  forces  in  z-direction  for  main  unit 

’^Mz  = ’^zl  * '^z2  * ’^MCGz  • ^hz 
Sum  of  the  moments  around  hitch  point  for  main  unit 

^M  = ^^1  ♦*^xl  *^1  ♦^zl  **1)  ^^2  *^x2  *^2  *^z2  **2) 

■ ’^MCGx  “ZCGM  ♦ f^MCGz  •*CGM 

where : 

(subscripts:  M-for  main  unit,  T-  fo'  trailer  ) 

^MCGx'  •'^MCGz  - at  center  of  gravity  in  x-direction 

and  z-direction  respectively  s 0) 

F^2  = Force  at  trailer  hitch  point  (negative 

sign  for  main  unit,  for  single  unit, 

• both  are  equal  to  zero  ) 

*CGM»  ^CGM  = * ^ location  of  center  of  gravity  with 

reference  to  the  hitch  point  ( vehicle  fixed- 
ground  parallel  coordinates  ) 

The  additional  three  equations  for  the  main  unit  with  a trailer  are; 
Sum  of  the  forces  in  x-direction,  for  trailer  only 

^Tx  = fx3  ♦ •^TCGx  ♦ Fhx 

Sun  of  the  forces  in  z-direction,  for  trailer  only 
•^Tz  =^z3  ♦ ^TCCz  ♦^hz 

Sum  of  the  moment  around  hitch  point,  for  trailer  only 
=”i  - ^x3  *^3  *^z3  **3  *^TCGx  *ZCGT  ♦^TCGz  * *CGT 

li  _ ^ 
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where  , PycGz  forces  at  tne  center  of  gravity  of  the 

trailer  in  the  x and  2 directions  respectively. 

These  six  unbalanced  forces  and  moments  Mn^, 

f^Txi  f^Tz  driven  to  zero  by  adjustments  to  XN(1), 

^Nll;  *^N21'  f'Njl.f'hx*  f'hz  array)  using  the  iterative 

procedure  of  subroutine  EQSOL  described  in  Powell  (1970). 

3.  Subroutine  MOVEB 

This  subroutine  advances  the  vehicle  to  a new  position  on  the 
obstacle  orofile  and  calculates  the  noorair.^te’;  of  the  wheels,  rS's. 
hitch,  trailer,  the  vehicle  pitch  angle  and  the  angle  under  the 
wheels,  all  at  the  new  position  and  attitude. 

MOVEB  makes  use  of  the  equation  solving  routine  EQSOL,  also 
used  by  FORCES,  to  calculate  the  position  of  the  prime  mover  (the 
vehicle)  such  that  all  the  wheels  are  on  their  hub  profiles  (unless 
they  are  elevated  above  the  hub  profile  by  restrictions  on  the  angul 
movement  of  the  bogie  arm  with  respect  to  the  frame)  in  such  c way 
that  the  new  position  of  the  CG  is  a distance  of  STEP  away  from  the 
prior  position.  The  value  of  STEP  was  calculated  and  set  in 
subroutine  OBGEOM.  The  independent  variables  of  these  equations  are 

t f 

*CG.  ^cG  fo’’  single  wheeled  vehicle 

suspension  elements  and  for  those  positions  which  yield  all  bogie  an 
positions  at  their  limits.  If  the  suspension  elements  are  bogies  ani 


I 
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their  eq:iil  ibrium  pos’tion  is  between  their  angular  limits,  then  c 
or  two  iOditional  independent  variables  are  and/or  62,  the 
angle  the  bogie  arm  makes  with  respect  to  the  vehicle  x-axis. 

Initial  estimates  for  these  three,  four,  or  five  quantitiei 
supplied  to  EOSOL;  the  equilibrium  values  of  these  variables  are 
returned  by  EOSOL  such  that 

[(XcGi  zSTEP 

and  the  vertical  distance  of  each  wheel  to  its  hub  profile  is  zeri 
all  withjn  an  overall  tolerance  of  about  one  inch  or  less. 

With  a bogie  suspension  element,  three  possioie  states  of 
support  exist: 

( 1 ) on  the  front  wheel  at  its  upper  (toward  the  vehicle)  : 


■s.j> 
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(4)  In  addition,  for  tracked  vehicles,  support  by  a spridL 
could  be  substituted  for  an  entire  suspension  element. 


FIGURE  II. f. 6 ••  Spridler  Interference  for  Tracked  Vehicle 


If  the  rear  spridler  is  supporting  the  vehicle,  then  NW(2)  : 
(In  case  (4),  the  "wheels"  of  the  tracked  vehicle  that  are  used  to 
model  the  track  are  .nuch  larger  than  pictured.  The  small  wheels  ar 
shown  for  illustrative  purposes  only.) 


Upon  entry  to  KOVEB,  the  program  assumes  case  (2)  for  all 
suspensions  which  are  modeled  with  a bogie, 

^ are  passed  to  EQSOL  to  locate  the  supports.)  This  may  result  in 
up  to  five  (NEOL  = 5)  independent  variables  and  equations  used  to 
locate  the  vehicle.  Upon  return  from  EQSOL,  the  following  values 
represent  the  location  and  attitude  of  the  vehicle 

t 


t 


*CG1'  These  returned  values  of 
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Pi  and/or  Bo  checked  to  be  within  their  limits:  £ 6^ 

< 6 , 1 : 1 and/or  2.  If  no  violations  to  these  inequalities 

occur,  the  position  and  attitude  of  the  prime  mover  is  considered 
final  and  the  routine  proceeds  to  calculate  the  position  of  the 
trailer,  if  there  is  one. 

If,  for  example,  0^  > 0^^.  or  , a new  entry 

IS  made  to  EQSOL,  then  the  bogie  of  suspension  i is  replaced  by  a 
single  wheel  support  with  ®BCi . ^i  replaced  by  RLi  i , 

^Lili  ®ui  O'"  *^112'  ”^112'  ^di  depending  on  which  limit  is 

exceeded.  The  number  of  independent  location  variables  and  equations 

is  now  reduced  by  one. 

This  procedure  is  repeated  until  no  bogxe  angles  exoeej  their 
limits  or  all  bogies  have  been,  temporarily,  replaced  by  single  wheel 
supports . 

In  case  a tracked  vehicle  is  being  modeled,  the  location  of 
both  spridlers  is  now  calculated.  If  either  one  is  below  their  hub 
profile,  EQSOL  is  called  again  with  the  front  support  replaced  by  one 
located  at  and/or  the  back  support  replaced  by  one  at 

*BC5*  Degrees  of  freedom  may  be  reduced  if,  as  shown  in 
Figure  II. F. 6,  the  vehicle  is  being  supported  by  a spridler  rather 
than  a bogie. 

Once  the  vehicle  location  and  attitude  are  returned  from  EQSOL 
all  wheel  and  suspension  support  positions  are  calculated.  This 
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calculation,  and  the  same  ones  performed  during  the  equation  solvin 
done  by  EOSOL,  are  performed  by  a subroutine  called  ELEVAT.  Given 

some  set  of  zcgi»  ^2'  P^^gs  indicating  on  what 

suspension  elements  the  vehicle  is  being  supported,  and  the  length 
and  direction  of  radius  vectors  from  the  CG  to  those  vehicle  suppor 
points,  ELEVAT  calculates  2^.  XBCi,  ZBCi  and  ELEV(i),  the  v. 

distance  between  wheel  center  i and  its  hub  profile  for  all  suspens 
elements  on  the  prime  mover. 

When  the  above  calculations  and  adjustments  result  in  a 
position  and  attitude  of  the  prime  mover  which  does  not  violate  any 
constraints  and  which  has  advanced  the  vehicle  CC  a distance  of  STE: 
across  the  obstacle,  all  the  surface  angles  under  che  wheel  in  conti 
with  the  ground  are  calculated.  This  is  done  by  a subroutine  calle( 
WHEEL1.  The  hitch  location  is  then  calculated. 

If  a single  wheel  trailer  is  present,  subroutine  WHEEL2  is  u: 
to  locate  the  trailer  wheel  on  its  hub  profile  maintaining  the  leiigl 
of  the  radius  vector,  from  the  hitch  to  the  trailer  wheel 

center.  The  pitch  angle  of  the  trailer  and  the  location  of  its  CG  ai 
then  calculated  and  a RETURN  is  made  from  MOVES. 

If  a trailer  is  being  modeled  and  it  is  fitted  with  a bogle 
suspension  the  trailer  is  first  positioned  on  the  obstacle  with  the 
front  wheel  aC'lts  upper  most  position  ( P ^ ® u3)  using 

subroutine  WHEEL2  with  R. and  Tlj,.  If  the  second  wheal  is 
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ibove  us  hub  profile,  it  is  concluded  that  this  the  proper 
position  for  the  trailer,  its  bogie  center,  pitch  angle,  and  CG 
location  are  calculated  and  MOVEB  exits. 

If  the  second  wheel  is  below  its  hub  profile,  the  trailer  is 
positioned  on  the  obstacle  with  the  rear  wheel  of  tlie  bogie  at  its 
upper  most  position  (0^:6  using  subroutine  WHEEL2  with 
^132  3"*^  ^L32’  first  wheel  is  now  above  the  hub  profile, 

u IS  concluded  that  this  is  the  proper  position  for  the  trailer,  its 
bogie  center,  pitch  angle,  and  CG  position  are  calculated,  and  MOVES 
exits. 


If  the  first  wheel  is  below  its  hub  orofile,  i';  is  concluded 
that  the  proper  position  of  the  trailer  is  such  that  both  wheels  of 
the  bogie  Ire  in  contact  with  the  ground.  A search  for  0^  in  the 
interval  [ conducted  until  both  wheels  centers  are 

on  their  hub  pr  within  1/10  of  an  inch.  It  is  concluded  that 

this  is  the  prop^  itude  of  the  bogie  whereupon  the  location  of 

bogie  center  is  calculated  and  thus  the  pitch  angle  and  CG  locatlr 
the  trailer  are  determined.  MOVES  then  exits. 
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in  INPUTS  AND  OUTPUTS 


A.  Vehicle  Data 

The  data  required  to  describe  a vehicle  for  the  Obstacle 
Module,  0BS78B,  is  listed  below  together  with  the  file  formats 
required  . 

Most  of  the  descriptions  are  self-explanatory.  One  should  nc 
that  the  equilibrium  load  and  center  of  gravity  location  (lines  '2, 
should  be  those  cf  the  empty  vehicle.  The  weight  and  location  of  tl 
payload  are  entered  Separately  (line  14,15).  The  payloar  weight  maj 
zero. 


The  data  used  to  describe  a tracked  vehicle  requires  special 
attention.  In  OBS78B,  the  track  is  replaced  by  eight  wheels,  two  be 
pairs  on  each  side,  as  discussed  in  section  II. A. 1.  In  order  to  obt 
the  kind  of  path  of  motion  expected  at  the  CG,  these  wheels  are  qul 
large.  In  fact,  the  effective  radius  is  the  distance  between  the  tv 
support  points  if  the  vehicle  has  a girderized  track  and  half  this 
distance  if  the  track  is  flexible.  These  wheels  are  placed  on  two 
bogie  suspensions  whose  horizontal  locations,  bogie  arm  width  and 
limits  of  angular  motion  are  those  specified  in  the  input  data  file 
Clines  8-11).  We  have  found  that  if  the  suspensions  are  too  far  apa 
the  resulting  enormous  wheels  can  contact  the  obstacle  far  fore  and 
aft  of  the  vehicle  resulting  in  false  clearance  information.  In 
particular,  the  contact  of  the  sprocket  or  idler  (spridler)  is  not 
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molded  ;n  this  case.  If  the  suspensions  are  too  close, the  vehicle 
motion  IS  not  properly  modeled,  .'^or  the  M60A1,  placing  these 
suspension  supports  over  the  second  and  next  to  last  road  wheels  with 
the  bogie  arm  width  equal  to  the  road  wheel  spacing  seems  to  give 
reasonable  results.  To  model  the  relative  freedom  of  vertical  motion 
of  the  first  and  last  road  wheels,  the  limits  of  angular  motion  are 
different  in  the  clockwise  and  counter  clockwise  directions.  For  the 
M60A 1 , we  allow  the  outer  wheels  about  four  times  the  motion  toward 
tne  body  of  the  vehicle  allowed  for  the  inner  wheels. 

The  input  file  description  forms  Table  III. A.’..  The  variable 
names  are  those  in  the  prograr..  The  coordinate  system  for  the  input 
data  IS  shown  schematically  in  Fig  III.A.l.  An  explsnaticn  cf  all  the 
coordinate  systems  used  in  the  Obstacle  Module  may  be  found  in  Section 
II. B,  above.  Sample  vehicle  input  data  files  for  wheeled  and  tracked 
vehicles  are  contained  in  Appendix  B. 
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TABLE  III. A.  1 

Vehicle  Input  File  Format-OBSTSB 


Line 

No. 

Variable 

Name 

FORMAT 

Description 

1 

TITLEl 

A5 

This  line  contains  alphanumeric 

TITLE2 

A5 

vehicle  identification.  The  first 

TITLE3 

A5 

15  characters  are  printed  in  the 
program  output. 

2 

NUNITS 

12 

Number  of  units 

NSUSP 

12 

Total  number  of  suspension  supports 
for  entire  vehicle 

NVEH1 

12 

Vehicle  type:  0-tracked 

1 or  greater-  wheeled 

NFL 

12 

Track  type:  C-  rigid 

1-  flexible 

3 

REFHT1 

F7.2 

Height  of  hitch  above  the  ground  when 
empty  vehicle  is  at  rest  (in.) 

HTCHFZ 

F7.2 

Vertical  force  on  .bitch  cf  trader  at 
rest  (tongue  weigr.t)  (lb.) 

4 

SFLAG(I) 

Isl, NSUSP 

1012 

Suspension  type  at  support  I: 

0- independent  single  wheel 

1- bogie 

5 

iPd.j) 

Jsl  ,2 

1=1, NSUSP 

1012 

Power  indicator  for  wheel  J of 
support  I:  0-unpowered 

1-powered 

6 

IBd.J) 

J = 1,2 

1=1, NSUSP 

1012 

Brake  indicator  for  wheel  J of 
support  I:  0-unbraked 

1-braked 

7 

EFFRADd) 

1=1, NSUSP 

10F7.2 

Effective  (loaded)  radius  of  wheels  at 
support  I,  l.e.  the  distance  from  the 
wheel  centers  to  the  contact  point 
(including  track  thickness  for  a 
tracked  vehicle) 

8 

ELLd) 

1=1,  NSUSP 

10f7.2 

Horizontal  coordinate  of  suspension 
support  point  I with  respect  to 
hitch  (in.) 

9 

BWIDTHd) 

1=1, NSUSP 

10F7.2 

Bogie  swing  arm  width  at  support  I 
(0.  If  no  bogie)  (in.) 

10 

BALHUd) 

1=1, NSUSP 

10F7.2 

Limit  of  angular  movement  in  counter 
clockwise  dirtction  of  bogie  arm  at 
support  I (deg.) 

R-2053. 
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Line 

No  . 

Variable 

Name 

FORMAT 

Description 

1 1 

BALMD( I) 

1=1 , NSUSP 

10F7.2 

Limit  of  angular  movement  in 
clockwise  direction  of  bogie  arm  at 
support  I (This  angle  is  negative 
if  the  front  wheel  is  below  the  rear 
wheel  at  the  extreme  position)  (deg.) 

12 

E0UILF( I) 

1=  1 , NSUSP 

10F7.2 

Equilibrium  load  on  support  I when 
vehicle  is  empty  and  at  rest  ( If 
support  I is  a bogie,  this  is  the  sum 
of  the  loads  on  the  two  wheels  of  the 
bogie  pair)  (lb.) 

1 3 

CGZ1 

F7.2 

Vertical  position  from  ground  of 
center  of  gravity  of  unloaded 
first  unit  ( in . ) 

CGZ2 

F7.2 

Vertical  position  from  ground  of 
center  of  gravity  of  unloaded 
second  unit  (in.) 

lU 

DEE1 

F7.2 

Horizontal  coordinate  of  the  first 
unit  payload  CC  witn  respect  to 
hitch  (in.) 

ZEE1 

F7.2 

Vertical  distance  to  the  CG  of  the 
payload  of  the  first  unit  from  the 
ground  at  rest  (in.) 

DEE2 

F7.2 

Horizontal  coordinate  of  the  trailer 
payload  CG  with  respect  to  hitch  (in.) 

ZEE2 

F7.2 

Vertical  distance  to  the  CG  of  payload 
of  the  second  unit  from  the  ground 
at  rest  ( in . ) 

15 

DELTW1 

F7.2 

Weight  of  the  payload  of  the  first 
unit  (lb.) 

DELTW2 

F7.2 

Weight  of  the  payload  of  the  second 
unit  (lb.) 

16 

NPTSC1 

12 

Number  of  breakpoints  used  to  describe 
the  bottom  profile  cf  the  first  unit 

NPTSC2 

12 

Number  of  breakpoints  used  to  describe 
the  bottom  profile  of  the  second  unit 

17 

XCLCKI) , 
YCLCK'I) 

1=  1 .NPTSCI 

10F7.2 

Pairs  of  X and  Z coordinates  of 
breakpoints  of  the  bottom  profile  of 
the  first  unit  at  equilibrium  with 

no  payload.  Five  pairs  are  entered  per 
line,  as  many  lines  as  needed  (in.) 
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TABLE  III. A.  1 

Vehicle  Input  File  Format-0BS78B 


Line 

No . 

Variable 

Name 

FORMAT 

Description 

1 

TITLE! 

A5 

This  line  contains  alphanumeric 

TITLE2 

A5 

vehicle  identification.  The  first 

TITLE3 

A5 

15  characters  are  printed  in  the 
program  output. 

2 

NUNITS 

12 

Number  of  units 

NSUSP 

12 

Total  number  of  suspension  supports 
for  entire  vehicle 

NVEH1 

12 

Vehicle  type:  O-tracked 

1 or  greater-  wheeled 

NFL 

12 

Track  type:  0-  rigid 

1-  flexible 

3 

REFHT1 

F7.2 

Height  of  hitch  above  the  ground  when 
empty  vehicle  is  at  rest  (in.) 

HTCHFZ 

F7.2 

Vertical  force  on  hitch  of  trailer  at 
rest  (tongue  weight)  (lb.) 

4 

SFLAG(I) 

1=1 , NSUSP 

1012 

Suspension  type  at  support  I: 

0- independent  single  wheel 

1- bogie 

5 

IPd.J) 

J = 1 ,2 

1=1, NSUSP 

1012 

Power  indicator  for  wheel  J of 
support  I:  0-unpowered 

1-powered 

6 

IB(I,J) 

J=1 ,2 

1=1, NSUSP 

1012 

Brake  indicator  for  wheel  J of 
support  I:  O-unbraked 

1-braked 

7 

EFFRAD(I) 

1=1, NSUSP 

10F7.2 

Effective  (loaded)  radius  of  wheels  a 
support  I,  i.e.  the  distance  from  the 
wheel  centers  to  the  contact  point 
(including  track  thickness  for  a 
tracked  vehicle) 

8 

ELL(I) 

1=1, NSUSP 

10F7.2 

Horizontal  coordinate  of  suspension 
support  point  with  respect  to 
hitch  (in.) 

9 

BWIDTH(I) 

1=1, NSUSP 

10F7.2 

Bogie  swing  arm  width  at  support  I 
(0.  If  no  bogie)  (in.) 

10 

BALMU(I) 

1=1, NSUSP 

10F7.2 

Limit  of  angular  movement  in  counter 
clockwise  dirtction  of  bogie  arm  at 

support  I 'deg.) 
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TABLE  III 

. A. 1 ( Cont inued  ) 

Line 

Variable 

FORMAT 

Description 

No  . 

Name 

NOTE: 

IF  A ONE  UNIT 

VEHICLE  IS 

BEING  DESCRIBED,  THE  FOLLOWING  LINE 

(18)  IS  SKIPPED. 

18 

XCLC2(I) , 

10F7.2 

Pairs  of  X and  1 coordinates  of  the 

YCLC2(I) 

breakpoints  of  the  bottom  profile 

1=1 , NPTSC2 

of  the  second  unit  at  equilibrium  with 
no  payload, five  pairs  per  line  with  as 
many  lines  as  needed  (in.) 

NOTE: 

THE  FOLLOWING 

LINES  (19  and  20)  ARE  INCLUDED  ONLY  FOR 

TRACKED  VEHICLES. 

19 

SFLAGd)  , 

612 

Suspension  type,  power  and  brake 

indicator  (see  lines  4,5,6)  for  front 

1 = 4,3 

and  rear  spridler  (1=4,5  respectively) 

20 

ELL(4) 

F7.2 

Horizontal  coordinate  of  center  of 

front  spridler  with  respect  to 
hitch  ( in . ) 

ZS(4) 

F7.2 

Vertical  distance  from  ground  to 
center  of  front  spridler  (in.) 

EFFRA'J(4) 

F7.2 

Effective  radius  (distance  from  wheel 
center  to  contact  point  including 
track  thickness  of  front  spridler  (in) 

ELL(5) 

F7.2 

Horizontal  coordinate  of  center  of 

rear  spridler  witn  respect  to 
hitch  ( in . ) 

ZS(5) 

F7.2 

Vertical  distance  from  ground  to 
center  of  rear  spridler  (in.) 

EFFRAD(5) 

F7.2 

Effective  radius  of  rear 
spridler  (in.) 

FIGUKE  I II. A, I --  Vehicle  Input  Date  “ Coordinate  System 
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B.  Terrain  Data 

Although  0BS78B  is  currently  to  be  used  as  a preprocessor,  the 
program  is  designed  to  allow  extension  to  in  line  use  i.i  the  Areal 
Module  or  possible  expansion  to  linear  feature  size  obstacles.  For 
these  reasons,  the  topographic  slope  is  included  as  a terrain  input, 
although  for  present  purposes,  it  should  be  entered  as  zero.  In 
addition,  data  which  describes  the  terrain  vehicle  interface  is 
included  as  described  in  section  III.C  below. 

At  the  present  time,  the  obstacle  modeled  is  a symmetric 
trapezoid  and  hence  is  definea  by  three  numbers,  the  obstacle  aporoach 
an«ie,  r^ight  and  width  (see  figure  II.  A. 2).  The  user  has  ‘ne  option 
of  entering  a single  obstacle  or  a sequence  of  obstacles.  The  first 
line  of  the  terrain  file  identifies  the  option  selected.  It  is  planned 
to  extend  the  number  of  options.  The  value  of  the  option  identifier 
has  been  chosen  to  be  consistent  with  those  in  data. files  existing  at 
WES  and  TARADCOM.  A sample  terrain  input  file  is  contained  in  the 
Appendices . 


i 
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TABLE  III.B.  1 


Terrain 

File  Format-OBS78B 

Line 

No  . 

Variable 

Name 

FORMAT 

Description 

1 

LSIG 

12 

Signal  of  data  entry  mode 

2 

GRADE 

F7.2 

Topographic  slope  (X) 

NOTE:  The  only  values  currently  allowed  are  LSIG=2  and  LSIC=3. 

If  LSIC=2,a  single  oostacle  is  expected  while  LSIC=3  indicates 
that  the  data  contains  a sequence  of  obstacles. 

If  L1)IG  = 2,  the  following  line  is  skipped. 


NANG 

12 

Number 

of 

obstacle 

ingles 

NOHGT 

12 

Number 

of 

obstacle 

heights 

NWDTH 

12 

Number 

of 

obstacle 

widths 

These  three  values  are  written  in  the 
output  file  .‘'or  use  oy  the  Areal 
module.  0aS78B  does  not  need  them. 

4 UBH  F10.2  Obstacle  height  (in.) 

OBAA  F10.2  Obstacle  approach  angle  (deg.) 

OBW  F10.2  Obstacle  width  (in.) 

NOTE:  If  LSIG=3i  the  file  should  contain  a line  in  tne  above  format 
for  each  obstacle  to  be  traversed.  In  this  case,  the  last 
line  of  the  file  should  contain  all  9's.  (The  program 
terminates  if  OBH  > 99999.99) 


1 
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icen-irio/ Control  Data 


For  tne  nonce,  variables  to  describe  terrain/vehicle 
interaction  and  those  containing  control  intorraation  for  the  computer 
system  are  read  from  unit  LUNU  (i.e.  the  program  contains  FORTRAN 
" READ! LUN4 , f ) X"  statements,  with  f the  FORMAT  label  and  X the 
Variables).  When  the  program  is  run  interactively,  the  variables  are 
entered  from  the  terminal. 


The  first  entry  is  DETAI  (FORMAT-12),  the  output  detail  level 
indicator.  At  present  the  following  output  levels  are  implemented. 

0 Only  the  minimum  clearance,  maximum  force  and  average 
force  for  each  obstacle  are  reported. 

1 An  additional  output  file  is  opened  for  detailed 
output.  At  detail  level  1 or  greater,  the  vehicle  and 
terrain  input  dota  are  echoed  to  this  detailed 
output  file. 

4 In  addition  to  the  level  1 data,  the  clearance  history 

is  reported  (i.e.  the  minimum  clearance  or  maximum 
interference  at  each  step  in  the  traverse  and  its 
location  on  the  vehicle  or  obstacle). 

8 L addition  to  the  level  4 data,  intermediate 

oa  eolations  at  the  end  of  each  major  subsection 
(t.g.  clearance  computation,  force  balance,  movement  ) 
are  reported  from  the  main  program. 

9 In  addition  to  the  above,  the  final  computations  in 
the  movement  and  clearance  subroutines  are  reported. 

10  At  this  level  intermediate  results  are  reported  from 
the  subroutines  as  well  as  at  the  transition  points 
selected  for  lower  levels.  This  Is  the  level  normally 
required  to  debug  the  program.  A complete  report  of 
each  step  is  available.  Care  must  be  used  as  traversal 
of  a single  obstacle  can  produce  more  than  100  pages 
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of  output  at  this  level. 

11  All  level  10  output  is  also  written  at  level  11  as 

well  as  a report  on  every  call  to  the  iterative 
non-linear  equation  solver.  About  60X  more  output 
is  produced  than  at  level  10. 

The  final  two  lines  are  che  vehicle/terrain  interaction  data. 
First  is  a line  containing  the  limiting  coefficient  of  friction  for 
each  assembly  (FORMAT  3^7.2).  In  this  edition  of  the  Obstacle  Module, 
this  data  is  not  used.  The  last  line  contains  the  rolling  resistance 
coefficient  for  each  assembly  (FORMAT  3F7.2). 

As  this  section  is  designed  for  interactive  users,  each  of  the 
READ  statements  is  preceded  by  a prompt. 


I 

I 
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D.  Output 

The  output  of  OBS78B  consists  of  three  files,  one  of  which  is 
optional.  These  contain  control/execubion  information,  the  oasic  model 
output  and  detailed  model  output  respectively.  Each  is  described 
below. 

1.  Control/Executior.  Report 

Several  lines  of  output  are  generated  for  the  guidance  of  the 
interactive  users.  These  lines  appear  at  the  terminal  or  in  a log  file 
in  ice  case  of  a batch  run.  The  first  few  prompt  the  user  to  provide 
the  ooenar ic/cortrol  inlormaticr  described  in  the  previous  section. 
Next  the  first  identification  line  of  the  vehicle  data  file  is  output. 
As  each  obstacle  in  the  terrain  file  is  completed,  this  is  reported 
so  that  the  interact ive . user  knows  how  far  the  program  has  progressed. 
In  addition,  warning  and  error  messages  may  be  written.  In  particular, 
in  certain  cases  an  informational  message  is  given  about  the  error 
from  the  EQSCL  subroutine  although  this  error  is  relatively  small  and 
the  results  are  satisfactory. 

2.  Basic  Output 

The  final  results  of  OBS78B  are  the  minimum  clearance  (or 
maximum  interference)  between  the  vehicle  and  the  obstacle  during  the 

I"*- 

override,  the  maximum  propulsive  force  required  during  the  override 
and  the  average  propulsive  force  to  override  the  obstacle.  For  ease  in 
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using  this  data  as  part  of  the  vel'icle  data  file  for  NRMM  (see  Volume 
I,  Section  III.B)  the  first  six  lines  of  the  output  file  will  contain 
the  number  of  height  values,  angle  values  and  width  values  from  the 
terrain  input  file  isection  III.B),  when  appropriate  with  identifiers. 
Then  a header  is  printed  followed  by  the  output  and  the  corresponding 
terrain  input  in  the  format  required  for  the  vehicle  data  file  for 
NRMM . 

3.  Detailed  Output 

As  described  before,  the  user  of  the  Obstacle  Module  riay  choose 
to  obtain  an  output  file  containing  some  of  the  results  of  the 
computations  performed  in  modeling  the  override  of  the  obstacle.  The 
intent  is  to  allow: 

1.  Verification  that  the  input  data  is  properly  formatted  and 
correctly  read  (level  1) 

2.  Examination  of  the  clearance  history  to  identify  any  points 
on  the  vehicle  which  appear  to  be  problems  (level  4) 

3.  Examination  of  the  flow  of  computation  to  understand  the 
geometry  and  force  results  and  relate  them  to  reality 
(level  8) 

4.  Generation  of  sufficient  data  to  permit  program  verification 
and  debugging  (levels  10  and  11). 

Care  must  be  taken  in  selection  of  the  output  level  for  this 
program  and  that  for  the  Operational  Modules,  NRMM,  since  the  higher 
levels  cause  very  large  amounts  of  data  to  be  written.  We  would 
expect  levels  8 through  11  to  be  selected  only  for  a single  obstacle, 
not  for  runs  with  a multi-obstacle  terrain  file.  An  output  level 
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P'-ovidini?,  a force  history  is  planned  and  several  levels  are  unassigned 
to  provide  for  expansion.  Most  of  the  output  records  written  to  the 
detailed  output  file  contain  an  identification.  These  identifiers  are 
listed  in  Table  III.D.1  togetner  with  the  subroutine  from  which  the 
record  is  written  and  the  output  levels  at  which  the  record  would 
appear.  In  the  table,  these  identifiers  are  grouped  by  the 
originating  subroutine  and  further  arranged  in  order  of  placement  in 
the  program  (which  corresponds  reasonably  well  to  the  order  of 
appearance  in  the  output). 

Since  the  detailed  output  is  intended  primarily  for  the 
experiencea  anal  yst/pro2’‘ammer  to  use  in  uncovering  anomalies,  it 
would  nor:.ially  be  used  with  a copy  of  the  program  and  it  is  felt  that 
the  headers  used  as  pointers  to  the  appropriate  place  should  suffice 
as  labeling.  The  clearance  data  which  is  produced  in  level  4 output, 
however,  is,  hopefully,  of  potential  use  to  vehicle  designers  and 
design  evaluators. 

This  output  (labeled  MAINC)  at  each  step  is  a line  of  five 
numbers,  viz.  the  variables  ILOC,  CLRNC,  CLRHIN,  IDX  and  IOC.  The 
first,  ILOC,  is  the  index  of  the  step.  The  second  is  the  minimum 
clearance  or  maximum  interference  (in  inches)  at  tnit  step.  CLRHIN  is 
the  minimum  clearance  or  maximum  interference  found  at  all  steps  from 
the  initial  position  to  the  current  position.  The  last  two  numbers, 
IDX  and  IDC  are  indices  which  contain,  encrypted,  the  location  (on 
vehicle  or  obstacle)  at  which  CLRNC  and  CLRHIN  respectively  are 
obtained.  As  explained  in  section  II.F.1,  at  each  step  of  the  obstacle 
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traversal,  clearances  are  checked  at  the  obstacle  breakpoints,  the 
vehicle  clearance  array  breakpoints  and  the  vehicle  hitch.  The 
minimum  is  the  reported  claarance,  CLRNC.  If  this  occurs  at  the  Nth 
obstacle  breakpoint,  the  value  reported  in  IDX  is  N.  If  the  minimum 
occurs  at  the  Nth  breakpoint  of  tiie  first  unit's  clearance  array,  the 
value  of  IDX  is  10,000N.  For  a minimum  at  the  Nth  breakpoint  of  the 
second  unit's  clearance  array,  the  value  of  IDX  is  ICON.  If,  finally, 
the  minimum  is  found  at  the  hitch  point  (which  is  checked  separately), 
the  value  of  IDX  is  1,111. 
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TABLE  III.D. 1 


Detailed  Output  Headers  - OBS78B 


Header 

Originating 

Level 

Comments 

Subprogram 

Descript  ive 

0BS78B 

1 or  greater 

Echo  of 

Text 

vehicle  input 

TERRI 

OBS78B 

1 or  greater 

Terrain  input  echo 

NEW  OBSTACLE 

0BS78B 

1 or  greater 

Terrain  input  echo 

MBACKOFF 

0BS78B 

10,11 

MINITl 

OBS78B 

8-11 

M1NIT2 

0BS78B 

8-11 

MAINC 

0BS78E 

4,8-11 

Clearance  history 

MAIN! 

0BS78B 

10,11 

MA1N2 

0BS78B 

10,11 

MAIN3 

0BS78B 

8-11 

MAIN4 

0BS78B 

8-11 

MAIN5 

0BS78B 

8-11 

MAIN? 

0BS78B 

1 or  greater 

■JBGI 

OBGEOM 

10,  i 1 

OBGEOM 

10,11 

OBGEOM 

9-11 

K,I 

OBGEOM 

10,11 

OBGEOM 

9-11 

STEP  SIZE 

OBGEOM 

1 or  greater 

CLEARO 

CLEAR 

10,11 

CLEAR1 

CLEAR 

10,11 

CLEAR2 

CLEAR 

10,11 

CLEAR3 

CLEAR 

10,11 

04 

CLEAR 

10,11 

VI 

CLEAR 

10,11 

V2 

CLEAR 

10,11 

V3 

CLEAR 

10,11 

HI 

CLEAR 

10,11 

H2 

CLEAR 

10,11 

H3 

CLEAR 

10,1  1 

T1 

CLEAR 

10,1 1 

T2 

CLEAR 

10,11 

T3 

CLEAR 

10,11 

MIN 

CLEAR 

9-11 

SSQ 

FORCES 

10,1 1 

XN 

FORCES 

10,11 

XPH 

FORCES 

10,11 

X 

FORCES 

10,11 

Z 

FORCES 

1C,  1 1 

CGX(I) ,CGZ(I) 

FORCES 

10,11 

ALPHA 

FORCES 

10,11 

CGFX(I) 

FORCES 

10,11 

CGFZ(I) 

FORCES 

10,11 
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Header 

TABLE 

Originating 

III.D. 1 (Continued) 

Level  Comments 

FHX.FHZ 

Subprogram 

FORCES 

10,11 

3FLAG 

FORCES 

10,11 

NW 

FORCES 

10,1 1 

SR 

FORCES 

10,11 

3ETAP 

FORCES 

10,11 

3WITH 

FORCES 

10,1  1 

BN 

FORCES 

10,11 

BT 

FORCES 

10,11 

CRR 

FORCES 

10,11 

CTF 

FORCES 

10,1 1 

FN 

FORCES 

10,11 

RF 

FORCES 

10,1 1 

TF 

FORCES 

10,1 1 

FX 

FORCES 

10,1 1 

FZ 

FORCES 

10,11 

?X 

FORCES 

10,11 

PZ 

FORCES 

10,11 

PM 

FORCES 

10,1  1 

MOVE2 

MOVEB 

10,11 

MOVE3 

MOVEB 

10,11 

MOVESil 

MOVEB 

10,1 1 

MOVES5 

MOVEB 

10,11 

MOVE1 1 

MOVEB 

10,11 

MOVE12 

MOVEB 

10,  1 1 

MOVE21 

MOVEB 

10,1 1 

MOVE22 

MOVEB 

10,11 

MOVEA3 

MOVEB 

10,11 

MOVEA4 

MOVEB 

10,11 

MOVEA5 

MOVEB 

10,11 

MOVEA5A 

MOVEB 

10,11 

MOVEA5B 

MOVEB 

10,11 

MOVEA6 

MOVEB 

10,11 

ELEVAT1 

LlEVAT 

10,11 

ELEVAT2 

ELEVAT 

10,11 

ELEVAT3 

ELEVAT 

10,11 

ELEVAT4 

ELEVAT 

10,11 

WHEELSO 

WHEEL2 

1 1 

WHEELS1 

WHEEL2 

11 

WHEELS2 

WHEEL2 

11 

WHEEL3/1 

WHEEL3 

11 

WHEEL3/2 

WHEEL3 

11 

WHEEL3/3 

WHEEL3 

11 

XEQSOL: 

EQSOL 

11 
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VCLUf-E  11 

LliTINo  (.r  Pf-OGH-iM  ueb78B 


PA8t  A-2 


L PKOGPAW  CeS78b 

L 

c 

>-  vEmIcLF-CoSTACLE  INTERfERE^CE  MQCEL  (CCOJNb  UNOPTIHlZEOt 

L 

C UETEKMiNtS  INT  EHFE P cNC  c/CL BAR  ANC £ BET4.EEN  Z-DlMENS’IONAL 
C vehicle  PRLFILE  and  GBSIAClE  FROfILE  CF  FHAPEZDIC  SHAPE. 

V.  uETERMINES  TRACTiHN  FCPCE  RECUIREC  TC  SURMUUNT.  ACCOUNTS 
L EOK  AhTTCULATTGN  IN  PITCH  ILANE,  BOGIES  AcLOhEO 
b GN  ALL  SLSFENSIJNS,  BASIC  A-NALYSIS  PRCCECUREA  SOLUTION  OF 
«-  EOUATICNS  CF  STATIC  EQUILIBRIUM  FCR  SECUENTIAL  PLACE- 
C MENTb  OF  VEHICLE  CN  OBSTACfcE  TO  YIELC  TANGENTIAL  FORCES 
C ANC  FCSITICN  OF  VEHICLE  CL8ARANCE  CONTOUR  WITH  RESPECT 
C 10  ueSTACL  E. 

W 

C LQUTsLETAIL  IS  OUTPUT  CETAIL  LEVEL  INCICATCR 
C GETAIL  3 V CM-Y  U7ttOUT  FILE  WILL  EE  WRITTEN 

C U6TAIL  .GE,  1 0780HG  FILE  wILc  cE  WRITTEN 

C DETAIL  3 A CLEARANCF  FISTGRY  WHITTEN 
c uETAIL  3 MAJOR  SUBSEOTICN  RESULTS 

C UETAIL  3 9 SUBROUTINE  TRACE 

C PFTAJL  3 uj  all  variables 

L 
C 

PHObRAM  UBS78B  ( INFUTsjsj.ouTPUT* 15k,TAPE5»INPUT ,TAPE6»0UTPUT # 

IAPEl  = l5«5,TAPE2j3i5i,JAPE2l=15B,TAPEZZ»150l 
COMMCN  ALPHA(5,2), 

» BALMCI 3) .BALMUI 31, 

» BETA<3I, 66TAPI31 t BN^ Jl , BR AK ERI 5 , 2 », B71 3, 2 » *BWIDTH(  3 » , 

» L0SAI3,2I ,COSb( 3*,CCSGI3,21,CGFX42>,CGFZI 2» , 

^ CCXI  21  tCGZ:  21  ,CG>Y<  2i«CFR(  3,2t»  CTF<3«2  t, 

» EFFkAOIS)  ,ELL<  5»  , 

♦ FH*,fHZ,FN(3,2>, 

♦ HAI  5,9>  ,HB(5 ,91  ,KI  5*9»  ,H0(5»9I  ,HE4  b,  9l»HFi5«9L  , 

» HFLI  5,91  ,HX(S, 101, HZIS.IUF, 

» GAMMA(3,2), 

» I bl  5 ,2T,  IPI5 ,2T,  IH(  5j2l  , 

♦ L0UT,LUN6, 

•-  NSUSF,NbN!TS  ,Nn1  bl  ,FW^I5i, 

» 0A(9»,0FLI9i  ,UX(  l0T,C2U0t  , 

» PM(3  I.P0WERR15,,:  J ,PX83I,PXPCGI  JA,PZ43T,PZPCGI3»  , 

♦ RbCl  ,RbC2,RR!  3.2), 

^ SCALEUI  .SFLAG(5),SlNA(3,2),SINe(3>,STEP, 

♦ ThETBI,TH£TB2 , 

«>  XISI  ,XPBC(51  .XPWIS,2A« 

^ 215  i ,ZPBCI5) .ZPRCFI 5«2 ) ,Z PW{ 5, 2 » 

C 

c 

L 

bIMENSlON 

♦ CAW1I15)  .CAW,:!  15  F,C  FMII 15  I ,CRW21 15  I, 

♦ EOUILF45) ,eFTRACI5l, 

♦ FMUI3), 

♦ P0W!3,2),  , 

I 


-'-tubtJt  VLLU^'E  I ! 

LISTINO  uf  HhUbKAM  UBS7bt] 


MCI  b I .KhTCH(  <:i  , PTChl  J I .HkLIMI  J,2I  , 
t’  ThET^i  2 1 .ThtTAC'l  5)  . ThETeh4<£),TML  IH<3»2lf 
«■  >(CLC  Uib*.XC..C2(  iSl  ,Xtil6J  «XPCG(  2I»XPRF12  21« 

♦ YCCCl  (15»«VCLC2n5»  ,XPRF<2M», 

• ZPCG(2 » , ZSkS I 
C 

c 

i>UUBLE  PKEClilCN  VEE6AT 

integer  sflag, detail 

KbWiND  1 
REWIND  2k} 

KchINC  21 
K En  INO  ^2 

CALL  CCNNfcCI  SLINPUT  I 
CALL  CCNNElZ  bLOUTPGf  t 

L initialisation  of  i/C  omt» 

C PROGRAM  5UPMARY  DATA 
LUN1S2  2 

C TEKkAiN  COSTACLE  DATA 
HJN2=2  1 
VEhICLc  data 
I UN  3 *2  k 

C CCN'^kOl  INPUT  F(Lt 
L UN^  *5 

0 execution  report  file 


LUN5S6 

0 UIACVGSTICS 
LUN6  »l 

C 


PI*3  .1^1  5^265 


C 


1 •} 

1 1 


1 3 
16 

c head 
c 


to'C'Hii 

<»01k) 

Ai02i} 

c 


PIM2=Pl*2. 
PIC2  =Pl/2. 
Kl<ii 
k AFsU. 5 


WRITE!  LUN!>«li3l 

FCRH4r!20H  PRINT  OUTRUl  LEVEL  t 
REAO(LUN^,ill  DETAIL 
FURMAT(i2) 
wRITECLUNStlS  i 

kEAO  (LUN<»tAU2  0>  FHUdl  , FMU  ( 2)« FMUi  3 > 

WRT  TE!  LUN5»16  ) 

kEAO{LUNA»A020»  RTQhU  ) ,RTCIi!2l  »RTCWl  3) 

FaRNAT(3<«H  FR ICT  ICN  CCEFFICIENTS  BY  ASSENBLYI 
F0RMAT(A3h  ROLLING  RESiSTAkCE  COEFfClENTS  BY  ASSEHBLYI 
LOUT »OETAIL 
IN  VEFICLE  DATA 


HEAD  (LUN3.<»0k}0)  T ITL  ii»T  IT  L£  2rT  1TLE3 
WRITE!  LUN5,A000I  T L? AEl ,TI TLE2» T ITLE3 
PURMAT!3A$1 


FORMAT! 1012) 
FORMAT !10F7.2  > 


PACE  A-3 


0 

I 


96 


PA6c 


VLLUf-E  11 

Li:>TlNG  GF  PFOGKAM  UcbTdc 


B k! 


a5 
1 Old 


119 

C 

k. 

c 


kEAO(LUN3.A<)10I 
KEAC(LUN3.>*tic0) 
KcAO (LUNi.Abl 0) 
KEAU(LUN3.A013I 
KEAO  (LUN3.Ai/lk;i 
kEAOlLUNi,<.02  J) 
REAU(LUNj.A<)2Gt 
RFAL<LUN>,A020I 
kcAC(LUN3*<»lb4ui 
KcAC  (LUN3.<»020t 
RcA0(LUN3, 40^01 
READ  (LUN3t  Ai,20l 
CG^l  »CGZ1-REFHT1 
CGZi-CoZZ-REFHTl 
READ1L1JN3.A020I 
ZEEl=ZE£i“K£FHTl 


NUN4rS..SSUSP,NVEHl  ,NFL 
kcFUl  .FTCFFZ 
(SFLACl  n«  1=1.NSUSP» 

11  IFAT.JA*  J=l.^l*L3L,NSUSPi 
(( 1E41.0> .J=1«ZA.1>1,NSUSPI 
lEFFAAOt  L» ,1  = 1 ,NSUSP> 

(ELL4I1  1.1*1  .NSUSPI 
(B«4CThlll,I=l.NSUSP» 
loALfUt  11  .1  = 1 , NSUSPI 
(aALROl  11  , 1 = 1, NSUSPI 
i EOL  ILFI  II  ,I*1,ASUSP1 
CGZl.CGZZ 


CEEl.ZcEl.CEEZ.ZcEZ 


ZE£,i=ZEE2-REFfiTl 
P EAO(LUN3,A0Z0I.  CELTw l.DE LTW2 
READ (LUN3 ,AOl -1  NPT SCI ,NPrSCZ 
REAO4LoN3,<,0ot;t  IXC  Lcll  It  .VCLCl  1 1 A.  l = l.NPrsCl» 

LG  UZ  l^i,NPTSCl 
rCLCU  T1  syCLCI  1 I i-REFFTI 
iFlNCNITS.EQ.lJGG  TC  iilZ 

kEACILUN  ^JZ^J  IXCICZI IJ .YCLCZl n , l^l,NPT6C2l 

GU  85  I-  ,NPTSC2 

YCLC21 H =YCLCo< Il-«EfFTl 

CONTINUE 

IFlNVfcHl  ,NE,3  I UCTC  iJ  5 

PEAG:LUN3,^0  lot  iSfiAGl  11  , IPf  1,  i:«  131  1,  1 l.isA.S  I 

K^AOlLUNa.AOZOl  1 ELl.'All’.ZSl  H ,EPFRACi  il,  I*^.51 

ZSUI-ZSlRt-KEFHTl 

ZS151  = ZS(5t-REFhTl 

CONTINUE 


l)(3S7b  VEHICLE  PREPPCCESSCR 


IFINUNlTS.GE.t)  GCTC  122 
MTCHFZ»W • 

ECUlLF(3l-0. 

CUMY121  «k:. 

CGFXU.)«0. 

CCFZ(2 I >0. 

CUXl 2t*0. 

CGZl  21  >k  . 

CGFZI  — EUUlLFlil  'ECUILFIZI 

CGXI—IEUUILFI  11  *ELL111«E0U1LFI  2A*ELL(2ll/CCf21 
':GFZ2«-EQUILF(  3k-HrCHFZ 
CUX2>0  . 

IFINEUSP  .GE.  3)  CGX2*-EQUILF(3 tcELLl 3l/CGfZ2 
CGFZ  ( I l»CGf/.  1-CELT01 

CGXI  11-1  CGFZ1*CGX1-CELTN1»CEE1 1/CGFZll 1 
k.G2(  ll*(CCFZl*CCZi>C9LTtal*ZEEll/CCFZUl 
CCFXll 1*0. 

CGHYm»0.  Q, 


• J o o 


x-cvba,  VLIUK?  II 
LloTIMi  o’t-  PP'DGk^M  ufcS7oe 


PAkE  A-5 


ii  = iUkT<  LbA4  l»1*2*CGZtH**£» 


L PCLLOv.li'iG  CIGTaNCES  ANC  ANCLES  wPT  CO 
C 

ACG=  4TN2  (cGZt  1 I . CGX  ( li  ) 

THF  r Jril 1 I =ACG»P  I 
L 

C SET  angle  CF  VccTQR  FRCM  CC  TC  hITCh  EEIKcEN  -PI  AND  PI 

L 

IFlTPETOhl  1»  .GE.fU  ThET*)Hl  H »ACG-Pi 

00  1Z2  1 = 1.2 
xb=ELL ( ! I-CGX I 1 1 
Z3*-nFFH71*EFFRAC(  ll-CGZllI 
KuC(  i)=SQkT(  xe«xe»2e«Z9t 
thet Ajt  1 1 ^ATNi.  ( ze.xe* 

PwLi  P(  1 , U = «oC<  1 > 

TbLINI  I ,l»=THETAiliI  I 
KMLir'I  l,2t=U. 

TWLI  PI  I,2» 

1 FIS  FLAO(  t i.Ea.O)  GCTC  122 
btaLMtin  =»ALNU(  ll*Pi4iaji). 
bALMCl  *BALHol  I »*P  Uia*!. 

Xl  = xe>.5*0WiDTH(  1>*CCS:  EALPUIO  > 

Z laze  •-.5  •aw  IDT  HI  IF*SINieALPOlI>» 

X2*Xfi-.S*b»iIoTH<  1 1 •CiSi  i ALPC!  : » • 

Z2»Zc-.5*awiL)TH(  IK'SlMeALPCd*  I 
fuLIHI  I.  llaATN2(  Zl.Xll 
TkLIWIl ,Z) aAT N2I Z2.XJI 
RKLIPlI.llaSQRTI  ;>1«X1»21*ZH 
OWLI PI  I ,2»aSQRT{ X2*X2>Z2«Z2) 

122  CONriNUE 
IFINVEHI.NE.  01  GCTC  i2A 
no  123  !»<»  .5 

EFTKAOI  II  = EPFRAOU> 

Xb>ELLI  n-CGXI  11 
Zb>ZS( il-CGZ(  II 
KBC4  n«S0KT(  Ab*xe»ZEtZBI 
THETlj;ilaATN2(Ze.XE4 

123  continue 

UA  lFINCNITS.EO.il  GCTC  145 
ALL  TRAILER  OIST.  ANC  ANGlEIk  NRT  hlTCF 
CCF2l2l>CGF22-DElTU2 

CGXl  21  •lCGFZ2*CGX2-CKTto2*CEE2l/CGfZt2l 
CCi(2la|CCFZ2RCGZ2-CiLTN2«2EE2l/CGfZ42 I 
CGFX (2I«J. 

CGNYI2laii)» 

KHTCPI2)>S0KT(CGX(2IM2*CC2(2I*.R2> 
rHEraHt2il-ATK2(CG£'12A*CGXi  211 
XHB>ELL(3I 

ZHB--REFHT1  •EFFRACI  3> 

KBCl iiaSCRTl  XHB*Xhfl«2FB»2Hei 
THE? ADI aI>aTN21 ZFB.XbBA 

98 


t--  2 u’5a  , VCLUf-E  I I 
LlSTlNC.  GF  FFJGK^M  GBSyaE 


HwLI vl3,l)=RHC(3» 

TWLI  Ft  3,  i ) = TH6TAm3  I 
KWLI  F(  3.  ^)=i5. 

T**LIFt3,  2)  = 0. 

IFtSFLA&(3) .EQ.J*  GCTC  \^5 
bMLHint  =BALMU«  iF*P  13180. 
bALHC(3l =BALMO(it*P  I/18k. 

XlaXbB  ». 5 •ow!0TH4  J»*CCS ( BALMUI 3FA 
Zi*ZF8*.5*bl«IOTH<  3I*SIMBALPU(3  »> 
isNLlFt  3.  it  sSdKT  ( X1*X1>Z1*Z1I 
rtii.IFI3,  1 tsATN^l  zuxll 
X2=Xh8-.5*dW ICThtji  *CCS(6ALM0li I I 
Z2»ZHB-.5*8WlOTH<3i*STMBALPC(  3»i 
f'wLI  Ft  3. 2t  =SGRT  ( X2*)ivZ2*ZZ) 

TbLIFl  3,2I3ATN21Z2.X21 
125  continue 

on  1 3J  I =1 .NSUbP 

EFTKAUi  I IsEFFfvAOil) 

IF(NV£H1  .EQ.0.ANC.I-(»£.3»  EFT  R ACU  *» . 5*1  ELLI  U - ELL  ( 2 » I 
IFINVEHi  .EU.  t;.ANC.Nft.EC.4<.ANC.l.NE.i:3  I 
♦ EFTRAOI  lisELLt  1» -£LHi» 

OU  120  3*1,2 
POt<Ef*R(  I =1  .0 
sRAKFPt  I , 31  = 1,3 
Rk(  1 ,J»*EFFKaC( I ) 

CRR ( I, J)*krOM( I I 
PCkt  I, Jl *FMU( It 
130  continue 
BPkFCL'O. 

IFINVcHl  .E0.2)  BFRFCkAEFTRAC(n-EFfRAC41) 

DC  i 35  I *l,NPTSCl 
rCLCK  L>*YULC1(  I l-dFRFCL 

iFues{YCLCi(nifAesiKCLCi(in«EC.0.i  goto  133 

LMki  (I)>ATN2(  YCLCl  ( lA^XCLCKIM 
IFlAeSILMNl  ( in  .LE.  .Jl>  C4unil>e. 

GOTO  135 

133  CAt»i;ll>0. 

1 35  CkWl  4 It  xSQRTI  XCLCll  l«**2*VCLClf  n**2l 
1F4NIN4I  ErLE.l  > CCTC  1<>5 
no  1-1,NPTSC2 

fF4AeS4YCLC2(  I)l«A8S4XCLC24ni.EQ.0.»  GOTO  131 
CAh^  11 l>ATN2 (YCLC214»,XCLC2(1II 
IF(AeS4CAh2i  II  i .LE.  .811  CAW241»«f. 

GCTU 

i3d  CAM24T)*i:. 

KJ  CRR24  ll«SURTl  XCLC2I  I *YCLC24  1 I 

C 

V ENU  CF  VEHICLE  PREPROCEbSCR 
C 

C FCHO  INPUT 
C 

US  IF(LCJT.EO.0I  oOTO  115 

khir  Ei  LU.Nb.5J0  0l  TlTlEl,TITlE2.TirLE3»NVEHi.NFL 
FORM4T(1h1 ,37H  TFE  fuLLCHlNG  IS  A LIST  OF  THE  INPUT, 

99 


PAGE  A<6 


500U 


,^-ivoa,  VLlUfE  II 
LISTING  UP  PHUGKdf'  CbS7oB 


PAfiE  A 


ilH  vakl/JgLES  /16P  ThE  VEHICLE  IS  ,JA5/ilH  FIRST  UNIT, 

<;6h  UmuNEC/WHEELEC  JNCICATOn: 

* 27H  FlEaIBLE  track  IAOICATCP  12/ I 

WRITE  (LUN6 ,1 5i I CGX  1«CGZ i,CGFZi, CGA2«CGZ 2, LJF22 , 

* ILGxn  T ,CGZ(  T » .CGFKl  1*  ,CGFZ1  il  .PHTCHi  I» , T hET  »iH<  I » , I»I,NUNI  T S» 
ISl  PlRMAT(6H  aVPPFi6Fii*i/<jX,6fl2.A/6A,6Fl2  .3* 

TEi  LUN6,SaC2»  NUMTS  .REFHTl  .HTCHFZ 
PCRMATIllH  This  IS  A •U,2'Vh  UNIT  VEHICLE  WITH  T rtE  HITCH  , 

«■  Pt>.2.2AH  INCHES  ABCVI  THE  CROUNC/ IX , UHh  ITCH  LOAD  IS  •FIfl.S) 

wRl.TE(LUNb,S3«)4  I NSLUiP 

FGHHArilTh  THE  VEHICLE  HAS  ,I2»21H  SUSPENSION  SUPPORTS  ,121 
WRITFI  LUNbrSiD^SI 

5J«35  FCRMATl^TH  FULLQWlNC  IS  A LIST  CF  SUSPENSION  SUPPORT  DATA,/ I 
UU  16U  I=1,NSUSP 

WRIT  EILUNb.S  .1061  SFLAGI  H • EFFR  AC  1 1 ) , EFTR  AOl  1 > , ELLI  1)  , 

» EGuI  LF<  I > .bALMUI  It  . BALNCI  1 1 .BWlCThZ  l),FNUI-l»« 

« RTOW ( 1 P. RBCI 1 i ,THET am: It 

WR!  TE(LUNb.5  01SI  I I ftl  .J  t , I Eli  , Ji  ,RWL  1H<  I,Jl  ,TUL  1M<  I,J  t , 

» RR(  1 ,JI  ,CKR(  1.  Jt  ,PCWIHI,  JJ,J>1,2  i 
b J15  PORMAT(3X,212c2X.5FJfl.J/iX,2I2*2X,SFl 4.31 
bi'ao  PORHATI  !3,  i2F10.  Ji 
lot)  CONTINUE 

IFiNVEHi.Nfc.  0t  GCTC  ib3 

nRITc(LUN6,5.T;:9I  ISfLAuUI  ,IP(  I,  lUXBf  I.  it^ELllil  , 

» ZSn  ),EFFRA0U),HBC44l,THEIA2Ut,I->h,5» 

5i'09  FCRMATOZh  TRACKEC  VEHICLE  BEING  SlMULAT  ED/2m3 , 5Fl  kt.i/ > t 
loJ  CONTINUE 

WKlTElLUNo,>0i)7}  CCiifCEEltZEEl  ,CELTN1 
b3«7  FORM  ATI  3 7H(i}Ft)k  UNIT  i:  VERT  CIST  HITCH  TO  CG  » ,F7,3/ 

* 13X,  29HtlCRiZ  OiST  hllCH  TO  PAVLCAD*  ,F7.3/ 

» 13X, 29H  VERT  DISI  KlICH  TO  PAYLCAC*  ,f7.3/ 

* 13X,  10H  PAYLOACia  ,F7j3l 
mRI TEiLUNb.Sdlril  RAF 

bklie  FaHHAT(3SH  THE  ntBGUAC  ATTENUATICN  FACTOR  IS  fF5.2,/l 
HkITEILUN6.50U«  NP13C1 

FURMATIIBH  THERE  ARE*I3,22H  POINTS  ON  THE  VEHICLE 

* 18H  clearance  CONTOUR. /I 
00  1 63  I«1  ,NPTSC1 

mR1TE(LUN6,$a12I  1 » XCLCK  11,  l.YCLCK II. CAWiI  1 1 tCRWl  III 
SAU  FURM«T(7H  XCLCil  tU.iHl  >.F8.2.2X.AHYCLC1I.I2.3HI  >,FC.2, 

» <F1V.3I 

IbS  tONTINiJE 

IFINLNITS.EO.IA  CCTC  175 
HRlTEiLUN6,5Al3l  CCZa.OEEZ.ZEEl.CELTR? 

5A13  FORMAT  I ISHAFOk  UNIT  d*  CGZ>  »F7*3/ 

» liX,29HHaRIZ  OIST  HIICH  TC  FAYLCAC*  ,F7.3/ 

» 13X,29H  VERT  OIST  hllCH  TC  fAYLOAO«  ,F7.3/ 

* 13X,10H  PAYLGAO«  .F 7i 3/ IX, 2F10. 31 
MRlTClLUN6,5i‘I  A»  NFTSC2 

bAU  FCRMATIIZH  THERE  ARU13,23H  PCINTS  ON  THE  INO  UNIT 

* I6H  CLEARANCE  CONTOLR./l 
00  i 7t)  I >1,NPTSC2 

MklTEI  LUN6,5a161  I , XCLC21 1 1, 1.  YCLC2Z  I I.CARZi  4 I .CRUZ!  II 
bAl6  FORMAT!  7H  XCLC2( ,12. Jbl  >,F8.2,2Xt6HYCLC2(.  12, 3HI  •, 
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k-cjJbb,  VOLUME  II  PAGE  A-8 

listing  of  PFOGKAM  OeSTttE 


* F8.4.tiFl»;.JI 

1 T£  CONT  INUb 

L 

C this  PkOGKAM  OuES  NOT  HAVE  CLASS  INTERVAL  bBSTACLES 

C 

L kEAO  iH  TERRAIN  CaTA 

C 

175  CONTINUE 

NQBST=«} 

KEAO(LUNi«<«k)Ut  LSIC 
KEA0(LUN2j4BI:di  CRAti 
SLOPE^ATAMGRAOE/lGe.) 

CSLOPE*COS(S  LOPE  » 

SSLOP£=S INISLCPEJ 

IFILCUT.GE.  1)  MKITEALUN6.5018)  LS IGtGRACE«SLOPE > 

♦ LSLUFE.SSLQPE 

Sulb  FGRHAT(6H^TERR1  . i2.AFi»«3t 
IflLSlG.EO.ltGO  TO  2ilfl 
IF(LSIG.£C«2)GO  TQ  115 
?F(LSIG.E0.3  )GC  TC  Kit 
WRITEILUNl ,5017) 

5017  FORMATdVH  TERRAIN  FILE  EHRCRT 
CALL  EXIT 

,02  RcACILUN^.LO**^)  NAN  C •NCHGT  ,NmCT  )< 

LIdNO  FGRhAT  (3  (8X,  121  ) 

C 

L uaSTALLE  LCOP 
C 

185  kEAO (LUN2,L050)  CEh.CBAA.ObM 

AOSa  FOKHATl iFlO.2  ) 

IF(0£H.G£.^9998.59I  CALL  EXIT 
RMC>CaAA*Pl/lB0. 

IF(AeS(SLaPE)»AeS(i6jl.-LBAAI*Pl/18Kl..LT.PI02l  GOTO  195 
mRITEILUM  ,1911  CeH,,CbAA,CEM,GRAC£ 

191  F0RMfT(50H  OBSTACLE  ANGLE-CRADE  COHBINATIUN  EXCEEDS  VERTICAD, 

► /LFie.l) 

GOTO  185 

1^5  TF<18».-08AA  .LT.  2.*  OBH^ABSACeH) 

IFILCUT.GE.  II  MRlTEtLUN6,Ad30l  CBHtCSAArOBW 
LOiv  FuRMATiliHlNE^  0 BST  ACl.  E ,AF  1 e«2l 

GO  TC  2ja 

REAU  OR  CALCULATE  CbSTACLE  PRCFILE  BREAKPOINTS 

2idO  READ(LUN2,APlil»  NPTSfiF 

NTOT  AL>k; 

TF(NPTSPK.E0.99il  CALX  EXIT 

READ  ILUN2.AL20I  IXFRf  ( 11  ,YPRF|  I l,I>UNPTSPRI 

WRITE!  LUM  .AB35I  LS  16 

L'039  format  IA2H  WRONG  DATA  MCOE  FUR  CBSTACLE  CESCRIPTION  *18) 

CALL  EXIT 

CALCULATE  CBSTACLE  AND  hUE  PROFILE 
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VCLU^E  II  PAie  A-9 

listing  DE  PFUGf»4M  ucSldb 


cl6  CALL  CbcEuM  I BV.iCTl-.ifTPAO,ELL,  F-A,»-e.HC,hO*HE.hF,hFL  , 

» HX.HZ.  LOUT,  LLIN6  ,NSUSR«NUMTS  ,NV  EHU  OArOSAMvOBH.  OBMtO  Ft , 
* uX,o2.  bFLAG,:>LCPE.bTS<>l 

L bTARTlNG  PCINTS  FOR  EC.  SCtVEF 
C 

XMi  IxKTLMI  1 I 
XM  <»  t . 

NIsNSUSP*! 

OC  4:15  1=2, N1 
IM1=  1-1 

5 XNl  I ) = E0UILP1  IHI  Ul  CILTkl»CELTw2)/FL0AJlNSUSPt 
XNl  5 lxi). 

XN(6 IxnTChFZ 

C 

L IMIIALIZE  storage 

L 

Nm(  3 I =«} 

Nkix, 

NW(5  l=kj 
00  do  1 = 1.5 
2 16  Nk2<  II  <K. 

CLRM  IN*  UUil. 
cCLMaX=w. 

F0C=«J. 

C 

calculate  INITIAL  POSITIQA 
first  sospensicn 

C«-rtE(  I , n /HFL  (.1  ,IF 
S«H0ll, ll/NFL(l,l  I 
XPH( 1. II xHX( 1, 21 -.1 
ZPtal  !•  1)*HZ(  1.2I-.1.*S 
NWd  l>0 

IF(SFLAC(1A.EU.,11  UCIC  22u 

FIRST  SUSPENSION  BCGI.E  CEMcR 

218  XPBCIlixXPMt l.ll 

ZPBCn  l>/P>II  1.11 
GOTO  23i; 

first  suspension  bogie 

22  0 XPWI  1.2)<XPM(l.lA-ttttlOTHUl*C 

ZPrI 1.21 >ZPWl 1.1 I-BNIOTHI  1 l*S 
XTEMP>XPMU»;i-XFWli«2»> 

ZTEMP«ZPli(l.ll-ZFW<  iA2l 
BETA41  IxATNZ  (ZTEPPtXlEMPI 

KPecni«.5*(xPM(  i.i  i«xpw<i  »2m 

ZPBClll«.5«(ZPWn«lltZPIi4i»2l  I 

LOCATE  FIRST  UNIT  CG  FRCM  FIRST  SUSPENSION 
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r*.  oo  orr»  roo  ooo 


i<-^«!58,  VCLOKE  II 
listing  Uf  P80GK/JM  UdS78E 


PAGE  A-IS 


v. 

lJv  THtTMI»=ATN2(HCil,  1,1»» 

IF(T»-ErA(I).LE..21l  II-ETAUt  = 0. 

XPCG  (U=XPBC(1  l-Pacni^COSITHETAiJnT^ThETAl  I ** 

ZPCGU  l = ZPeC(  U- PBC<1I<SIN< THETA01 1)  »TH6TAm  » 

APbClZ  l = XPCG(  l)<PbC(2i*CCS(THETAK;<2l*THETAI  1 >1 
ZPBC(2)=ZPCGi  n<PeCI2l*SlNirPcrAei2<*THETAll)  t 

c 

C CHECK  IF  tracked 

c 

IFJNVEHI  .N6.  0<  GCTC  2?5 
C 

c CHECK  f«0NT  SPRUCKET/lCLEf  INTEKFERENCE 
C 

XPS<  XPCGI 1 ) »KaC(  <«t*CGS<THETA0iA  UThETAt  1 A) 

ZPSa/PCCi  1 * ♦PBC(  THETACIA •♦THETA! 1 1 » 

CALC  WHEEL3  < E r H A , HC*i-E  t »FX  . lh< 1 )r  At  LOUTt  LUN6t 

♦ XPS#  XPS#  ZPkOFU,  U» 

IF<E  .GE.  II  GOTC  215 

INTERFERENCE  - BACKUfF  FIRST  kHEEL  - ASSUME  MOUND 
S1»S/C 

S2><CZ(Al-OZU)  •/'ICXfAA-OXIZI  I 

PI  SQ<(S1  ••2»1 .1  •<ZPS*<H2(<.,2l<S2*lH«U,2l-XPSn*<2/ISl-S2l**2 

KI>SCRT<RIS9I 

XPWl l,l)»XPwi i.i I-RIIC 

ZP||(  1,  II  sZPWi  1 . 1 l-RI«S 

IFILCUT.GE. 1(1.1  HRITEjLUN6,236l  XPS.,2PSl  E » INU»  1 I »S  1,S  2» 

♦ RIS0,KL.XPi«(l.il,ZP«41«i» 

ZJb  FaRHATi9H  HBACKO  FF  , 3i<10 .3«  1 3»6F  IM.  3 1 
1F( SFLAGII I .EO.i » eCZO  220 
GOTO  21a 

SECOND  SUSPENSION 

NN<2I*4 

1F<SFLAG<21 .EQ.l A GC10  2A0 

SECUNO  SUSPENSION  SINGLE  nMEEL 

XPW(2*  1A*XPBC<2I 
ZPIilx,ll>ZPBC<2l 
GOTO  2S0 

SECOND  SUSPENSION  BOGIE 

2Atf  XPW(2« 1 l«XPbCl2l *.S«MNIOTH(2I*COS(THETA(1I  I 
ZPWI  2tll  aZPBC<2l  *.5  veMlCTH(2l<SIN4THETA(  111 
XPW(2.2l>XPBC<2l-.5*eNICTHl2l<CCSITHETA(lll 
ZPMi  2.2l>ZPBC(21-.5«awICTH<2l<SlN4THErAllAI 
XTEHP«XPHi  Z.HrMFWli^ZI 
ZTEHF>ZPW<2 ,1  I-ZPW42«2A 
bETAI2>>ATN2IZTEPP»lilEPPl 
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rv-<Jt)5o,  vCLUf'c  II 
lifting  uF  PF0Gr<AM  Ut!S7i»e 


PACf  A-il 


I.  LuChT  £ HI  Ilh 

c 

i:bi;  <PH-*PCGI  1*  t-HhlCH  1 lACQ  S4  T F ET  f)H  4 1 * *7  hdTAI  HI 
7FH=  ZPCGI 1 V♦^^HTCH  I > <!S  iM  T FET0h  < 1 1 ♦THETAIl  J ) 

I F(  NLNITS.  EO.  1 > CUTC  ^Sk! 

L 

C SEL(Ar,  UNIT  - lUCATE  kFEELJECGIE  CENTER 

L 

THETA4  =THETAn  > 
i<SQ*RI4C:  3» 

CALL  I4HEEL2  ( Ef P hlO  .aA . FC.  F E*  t-F  ,HX  ,hZ,I,  IHI  3»  1 1 , 

<■  3,  LOLT,LUN6«UX,QZt  AlCHAi  3,1  >,  R6C(3  A, RSQ,  XPH, 

*’  XP6C  (3l,ZPH,ZPBC(3l  > 

NW(  3 I^U 

IFISFLAGIii .EO.l)  GCTO  260 

C 

L THIku  SUSP'NSiON  SINGLE  wFiEL 
C 

XPw(  3,  l»  =XP8C(  31 
ZPh(  j,  n = ZP3CI3l 
GOTO  2 71) 

C 

C T^iIkL  SUSFFNSILN  BOCiE 
C 

XPh(3,  1MXPHC(3I  »*S«OMl0TH(  3!*CGSaHETA(2l  I 
ZPMi  3,1)  >ZPBC(3I  *.5Ai)liICTH4  3l*SIN<TH£rAUAI 
XPW(  3,2»=XPBC13)-.5»8»(ICTHI3)*CCS4THETAI2IA 
ZPW4  3,2)  »ZPBC(3)-.5*0)4lOTH4  3l*SIN<THETAI  21 1 
XTEMP»XPhI  j,l»-XFai  3.Z) 

ZrEMF*ZPW«3,ll-ZFM43a2) 
bETA1JI«ATN2{ ZTEfP,*IEMP) 

70  XPCG(2I  »XPH»RHTCK2  MCQS<TF£TeH4  Zl^THETAlZH 
ZPCG(2)>ZPH*RHTCh(  2.I<SINI  T PET  0Hi  2 I^TI'ETAt  2 1 1 
<^80  nc  290  1 3l  ,NSUSP 

ALPHAli,  il>THETA(i  I 
IF( SFLAGilI.EO.ei  GCIO  290 
ALPHA!  I,2I«THETA(1  I 
?9e  CONTINUE 

ILOC «e 

IFILC'JT.GE.8)  WR  1TE1LUN6»291  ) XFH«^PH»(  XPCEX  D , 

•>  ZPCGn),THETA4  I)  ,I>l#fUNITSA 
291  CCRH/T!7H  Ml N I T1  •«F  10<.3  ) 

TFILCUT.GE.b)  MR  1 TE  (iUNt  ,2  96«  ( XPBCi  I A«Z  PBCIH  tNMl  1 A , 

( aP)4(|,  JI,ZPM(  I*  „>,4kPHA4  UJ)»J>l*2i,  I>1,NSUSPA 
296  FGRMAT17H  MI N I T2  ,2f  1« . 3 ,1  3 ,6P1«.J/2I,7X6 2Flf.J»13»6Fl  0.3/ I ) 

VEHICLE  MOVEMENT  LOOP 

calculate  clearance 
300  UOC>lLOC»l 

CALL  CLEAR  1 CAMl  ,CA4l3«CRW1  ,r.RU2  , ICX.LOUT, 

» LUN6,CLKNC,NPTSCl,NEISC2.NCNiTS,CX.>Qi£-«THETA«XPH»ZPHV 
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K-^nJsa,  VuLUf'E  il 
lifting  UF  Pf-OGkAM  u?S7ac 


PAGE  A-12 


iF(CLKM..CE.(-LKMIN»  GCTC  3 1C 
1 DXCLK«1 LX 
l.OC*.JC*UOC 
CLKH  iNsCLHNc 

ilD  IF<  C LQUT.EO.<*  i.CP.(  LOJT  .GE.aii  kK  IT  EiLUN6, 21 II  iLOCtCLRNC, 
»■  CLKHIN.ICX.ICXCLR 
311  t-ORMATUH  H A INC , 15 , 2 F 1<) . 3,  2 1 10  I 

L CALCLLATE  FURCES  JNCER  WFlELS 

L 

CGXl  H =XPCG(  U-XFH 
CGZ(  H=2PCG(1  »-Zfh 
IF (NCNirS.EQ.l  I GCTC  32E 
CGXI 21 3XPCG(2 l-XFh 
CGZl 2I>ZPCG(2I>Z  FH 

320  IFlLCUT.uE.10l  WRIT t<LUf6,326i  CGX( 1 F,CGZ( 1 I • 

» CGX(cl,CGZ(2 i 
326  FChM/T  (t)H  HAlNl,<»Fie.J» 

IF(  SFLACm  .EO.i  > 0 ElAPl  1 1 =eETA<  1»>THETA(  H 
1F(SFLAG(2>.EQ.1  I 6 EIAP  ( 2 1 «eETAI  ZUTFETAll  I 
IF<NSUSP.GE.).ANC.SFLAG;i>.EQ.l I ofT API  3 I »B6TA1 31 »THETA12I 
DO  1=1.5 

XI  I > »XPBC1 I» -XPH 
ZI  I »=ZPBC1  H-ZPH 

IFUCJT.GE.101  tihlTE«LUi'.6t336l  Xill.ZlII 
33t>  F0RMAT(6H  PA  I N2  . <*F1  0 ^3  I 

1A0  CCMINUE 

CALL  FORCES  ( XNf FAXC«ArCTAL,SSC.XPP, ZPHI 
captcp.c  output 

FSUM*0. 

OC  350  I»1,NSUSP 

00  355  J«1.2 

FSUMsFSUP»FN( I *3 IWCICI 1« Jl 
IF  (LCUT.CE.SI  WRITEI  IUN6»3S1  I UCC»FSUII, 

» FNlI.JI.CTFd.J) 

355  CONTINUE 

350  CONTINUE 

351  FURHAT(6h  MATN3i  I3r7FlZ.il- 
IFIFSUH.LE.FuOMAXI  GETC  340 
LOCATF-TLQC 
FuOMAX«FSUM 

300  1F<  FSUH.LT.0.  I FSUF=MF*FSUM 

FOO*  FOOtFSuM 

!F<SSO.GT.100.N  GCTC  981 

ADVANCE  VEFICLE 
C 

CALL  HQVEB  ( CSLCFE.  MCL  .NVEHUReC* 

» REffHTl,KHTCH,RWLlH,S3LOPErSSQN,.TH£TA«THETA0»rHET0H,TNLIH, 

» XPCGrXPH.ZPCG.ZPFI 

1 FI  SSON.&T.100.)  GOTO  983 

IFILCUT.GE.SI  UkiTE  ILUN6*3«61  XfFr2IPH«lXPC6(  II  •2PCG(  1 1 « 
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VCLUf'E  II 

LlbllNO  (Jf  PCOGKtfM  UeS7ai; 

t 


♦ T|-  .T/H  I ( ,i.=  1 ,NUMTS  i 

3bt)  MA  IN'.  , 8f  Ik),3  ) 

iF(  LCUT.  LT.d  I OCTC  39ki 
UL  joJ  1=1inSUSP 

WRIT  tlLUNb.B  71  I l.SFLAGI  il,«NM4  1 I .XPBC  (1 1 .ZPBCl  11 , BET  All  I . 

> < XPW(  I , Jt  .ZP.4(  l.J)  .ALPHAl  I.J  >•  IhU,  Jl, 

371  FnRMtfTUH  MAT  N5 . 3 13  ,lf  1 P . 3 ,2  ( 3F1 0.  3 , 13 »» 

3bi.t  CCMINUh 

! FI  XP-<(  1 ,1 » . LE.HX(  U10J  » GtTQ  300 

u 

C cNC  oF  vehicle  HUWcPEM  LCW 

c 

FCC=  FQQ/FLCAf ( ILCCl 

IFi LOOT .GT.JJ  WRiTE4UUN6,ail  I L CCATC, CL  PM  IN, 

♦ ? CXCLR, LCCATF, FGCPAX.FCC 

ail  FUkHATIoH  MA  in?,  15,  Fill.3«  1 10/6X  , 15.2FiU.3) 

L 

C WHITE  AML*  7-.  areal  MOCULE  INPUT  FILE 

lP(LSIu.E0.1>  GOTO  519 
IF4Li!G.EU.2IGa  TC  5jil 
IFlKl.EV.n  lUTO  995 
WRIT  t(  LUM  ,9  J76»  NChfiT  , N ANG,  NWCTH 
^i)?o  ‘■CKMAT  ( 5HNCnGT,/  ,5X  ,ii,  /,-»rNANG,/,5X,Ii,/#5HN«CTH,/,5X,  121 

991  M*i 

wRITElLuNl ,90711 

9 071  FUHMAT  ( /lX,<>HCLRMN,«X,bHFLUHAXf<,X,3HFOO,7X,6HHQVALS, 

',XrbHAVALS,5X,5HwVAl5»J 
WRl  I E(  LUM  ,90721 

9w72  CURMATI  1 X,  6H  I NCHE5  , w X,6  HPCUNLS,'MX«6HPOUNOSf'*X»  A HINCHES , 
<rX,7FRAOIANS,  3X,  thlHChESI 
995  CONTINUE 

IF  (LSIu.Eu.i t GO  TG  584 
JEH* AdS( CBH) 

961  WRITEILUM  ,9073  > CLFP{N,r0CMAX,  Fao«OeH«RAC,OBl4 

907  3 FuRHATl  i X ,F6 .0  r i X, F 94 1,  U ,F 9 . 1 ,4X,F642  t4X  ,F6«2«3X»F7. 21 
lF4SSO.GT.i00.>  WR1TE<LUM,982  I 

964  FURNATi lh>,60X  ,39h  EflSOL  CANNOT  SOLVE  FORCE  £ MOMENT  FQS.l 
GO  TO  983 

969  IF (Kl.EO.ltGO  TO  984 

Kl«l 

WkITElLUM, 90771 

9077  FORM  ATI/  lX,6hCLR>lNf4X,6HFCCMAX,4X,3HFU0» 

UHlTEILUNl  ,90781 

907b  FORMATi  1 X ,bH  I NCH  ES,  41,6  HP  CUN0S,>4X,  6HF3UNCSI 

984  wHITEILUNl ,90791  CL FPIN*FCCPAX, FCC 

9 079  FURHATI 1 X .Fo . 2 , i >,F 9wl , IX ,F9 .1 1 

9b3  nOBST«NUUST^ I 

WRiTEiLUNS  ,985)  NCBST 

965  FuRMATl  1X,19H  ENC  CF  CBGTACLE  A ,133 

IFlLSlG.EQ.i)  GCTC  200 
!F(LSIG.E0.2)  CALL  EXIT 
lF(LSlG.E0w3)GC  TC  U5 
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C END  Cc  CbSUCLE  LOOP 

r 

END 

C 

C 

SLBKCUTINE  OEGEO#'  ( E,  EPFR4C ,ELL  ,H4r h6*HC ,hO,HE  .HF  ,rtFL , 

♦ HX.HZ.LUUr  .LUN6,NSUSF«NUMTS.NVEhl,04tOe4A,ObHtOBW  .OFL  , 

».  uX.OZ.SFLAG.SLCPE.STEPI 

i.'-»Tec:R  SFLAG 

JilPEKSlON  BW?LTH<3I  ,£FFR40(5)»E4.L45A»HAi5«>)«HB<S»9t  , 

» HC(  5«9>  .H0(  5.^»  thE(  S«9)  ,HF(5»9),HFLI5#9l*HXl5,lid>»H£XS,  li)l« 

* JA4  9 i .OFLI  91  ,CXU0  F,€^ni<)»,SFLAG43) 

obstacle  ANC  Hue  BREAK  POINTS  BEFORE  MAIN  SLOPE 

OANG:<  IdB.-QBAAl  *4.  lAi59Zb5/I  80  • 

CANu2>cOS(QANG/2.t 
SANG2»S1N40ANG/2.I 
TAN02-SANG<:/CANG2 
CANG*C0S<0ANGI 
SAN«>’'S  INIOANGI 
• mKG^SANG/ CANG 
V»A«Oe.4>2  .•OBH/TANG 
KUNL>ELLill*ELLlNSUSRI 

IFfSFLAGiil.EO.l  I MUAL>PUNL«  BW  I CTH4  1 i/2. 

1F(SFLAG(NSUSPI. EQ.li  RUNL > RUNL  »ewlOT H4 NSUSP) /2 . 
IFILCUT.GE.UI  MF1TEI*LUK6.  1211  CANG»OBH,OBM , 

•’  SANG  .CANG.TANG.WAtSLCFEt  RUKL 
121  FORMATiSH  OBGl,9FLa.A« 

IFlOANG.LT.e.t  GCTO  .13^0 

HCUNC 

SET  obstacle  PCIATS 

OX(l l3iRUNL-EFFRAC(iAPTANG2>l. 

IFINVEHI  .EO.iAt  OXiit^OXtil  ^ELL  ( ll-ELLi9l 
021 1 

0X(2  l>0. 

0Z12l>a. 

OX  13  )S0. 

ozi 3 i«a. 

OXU  >-UBH/TANG 
OZU  t«UbH 
0X(5t>0XU) 

OZI  5 tsQBH 
0X(6i«WA-CX(Al 
0Z(6l>0BH 
0X17  IsUX  (6) 

UZ17t>0BH 
0X18  l«HA 
0Z18)*U. 

UX(9  l>WA 
024  9>-li. 
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UX(  1 -H4»KlJNL»f  ffHiCINi>UaP»*TANG^ 
iFiN^iHi.EQ.^I  CXIUI=CJ<(1  fc  ^♦ELL*NSUSPI-FLL15) 
dZ  ( W»  . 
i. 

d bcF  HUB  PKUFiLt  PtIMS 

L 

nu  IZkJU  K = l,5 

IF  (K  .GT.NSUSP.ANC.NViKl.NE  .idt  GCTO  12w0 
IF(K.Eg.j.ANC.NUAlTS,EG.li  GCTC  12tf0 
kK3EFFftAC:K> 

HX(  K ,1  > =CX(  1 J 
hz:k  ,1I  = HK 
MXf  K .5t  -CX(  5 > 

HZiK,5 »=CBH*fiK 
H X (K,6i -OX (b ) 

HZI  K,6»  =CBH>f«K 
HX<K  .lx»»=CX(  13» 

HZ(K  ,ld>=FK 

L 

HZ(  K ,<t4  =CZ1  A > ♦RK  •CANC 

IF«H  Z{  .LT  .HK  J GCIC  1101! 

HX(K,H}=OXiA)-KK*SAN« 

HXl  K,  31sCX(  3 » -RK«TA^6^ 

H2(K,3»ahA 
r(X<K,2  1 = HX(  K,3  I 
HZ  (K  ,2  J aPK 

HX(K,7I*CX(7I^PK*SAAG 
HZ(K  ,7»  = CZ<  71  *-HK*CAht 
HX(K  ,81  >OX(a  ) •’KK^TAAQi 
HZ(K  ,8I=RK 
HXl  K ) sHX( K,8 ) 

HZ:k  ,9  )=«K 
GOTO  1200 

110b  HX4K,<»l«OX(<,l-SQRT(  Z<*RK*ceH-CeH*OEHI 
H2<K  ,41  >RK 
HX(K,3  l«HX(  K,AI 
HZ (K,3)3HZ(K,At 
HXIK,2)>HX(K,3I 
HZ(K,2)«HZ(K,3) 

HXIK ,71 >0X161 tSGFT{24*PK*GfeH«UeF*0eHI 

HZ(  K,7I>RK 

HX1K.8I>HX(K,  71 

HZ(K,8  l«t<K 

HX(K,9)«HX(K ,tt> 

HZl  K,9)  >RK 

1200  continue 

GOTO  1800 

C 

L OITCF 

C SET  CBST4CLE  POINTS 

C 

1300  0X1  n«-RUNL*l. 

UZl  1 t«k;. 

0X12  >>0. 
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C 

C CASE 
C 


1 H flki 

C 


U£(2  > = kJ. 

UX(i  »=.!. 

UZ  (j  1 = 1/ . 

IJXI  A UUbH/TANG 

UZ(<»)*C.BH 

JXiS  ) = UX(<4l 

CZ  (5  l=Odh 

JXI6  » = ‘.A-GbH/TANG 

OZ (6  t = Gbh 

nx(7»=0Xlo» 

uz(7»=aah 

GX(8  l = t«A 

OZ(B)-a. 

UX(9  IsHA 
OZ  (9  » = k). 

UX(  Ul  =t«A«>KUNL4-l  . 

UZ(lx>=i). 

SET  HUB  profile 

UU  1 Tin  Ksl  ,5 

IF(K  .GT.NSUSP.ANC.NVEtil.NE.Idl  GCTC  170B 
IF(K.3Q.3.AN0.NUMTS,£C.1I  GOTO  170i3 
KK=EFFKACIKI 
HXU  ,1  » *CX(  I I 

hz:k,i)=pk 

HXl  K.Z)  >0. 

HZU  tZ  » = RK 

HX(K  .9t-=VlA 

HZIK.9  l■RK 

HX4K.10i=OX(lJl 

HZlK.l  Jl  >RK 

HX(K  ,i)«CX(  3l-RK*SANii 

HX(  K ,B) «0XI B I »RK*SAA0 

1F4HX(  Kf  il.LT.HX(K,«fl  GCTC  1^00 

i * WHEEL  TOUCHES  CcSTACLE  POINTS  J AND  8 

HX(K  •3)*.S*(  aX(  3 l»CX08l  I 
HX(K  *<»3>«HXIKt  3> 
nX4K«SI«HX(  Kf  31 
HX(K,6)>HX(K,3) 

HXlKt7l=HX4K,i» 

HX(K  «8>  «HX4K,il 

HZ4K*3I  «SCRT4hK*FK>4HX(K*  3)«HX4  K«2)l**0) 
HZIK.^XHZIK*  31 
HZ1K,54>HZ(K,  3) 

HZ4K.6i>HZ(  K»3I 
HZ<K.7I»HZ(K,3I 
H2IK»8)«HZ(K«3> 

GOTO  1700 

HZIK«3l*OZ13)  »RK*CAA6 
iF(HZ(K*3l  ^GT.CBI-»RKi  GCTO  1500 
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L C«bE  - ^rEPL  TJUCHES  PCJhT  3 ANC  aOTIOM 

L 

NA(K,3i=hX(K,21  »SOftT  t-2.*RK*GbH-GeH*UBHI 
H Z(  N , i » =HK*Oeh 

HZIK,'«)  = HZ(K,3>' 

H X (K  ,s  ) =HX  (K  , J) 

HZt  K ,5*  =HZ<  K , i » 

nx(K,3  l=HX(K,  »-SCRT3-2.PhK*CaH-CBI-*C8h» 

HZl  K ,al  =HZ(  K,  3 > 

HXt  K ,7  t = HX:  K , a i 

HZIK, 71= HZ (K,B» 

tlX(K,B  l = HX(  K,d  I 

HZ  (K,6.'  - 'ZlK.ai 

GOIQ  17.3H 

HZ(K.d)=hZ(K«il 

HXU,<t  t=CXt  <♦  )-HK•TA^0^ 

hx<K,7)=OX(71 ♦kK *TANG2 

I FiHXi  K,  . LT  .HX4K,  7»»  GCTC  1(>^£ 

C 

u C AGE  J - WEEEl  TuUv.HtS  dOTH  SLQPEG  dhfCht  BQITOM 
C 

HXU  1 = <Ox  ( 5i  »CXi  6 U/i, 

MXiK  ,3  1 = HX:K,^> 

HKlK  ,<>»  »HXlK 
HX(  K ,7  I *HX(  K,<.  I 

HZ(K  .Al-  .5*  (HZ  (K  ,3l.*bZiKta  )»(hX<Kv8A>hXZK»3l  IpTANG) 

riZ(K,5  »»HZ(  K,**! 

rlZ(K  ,6l-HZ(K,Al 

HZ(K  f7l  »HZ(  K,**!- 

hOTQ  17(|}0 

cAiE  A - WHEEL  THuCHES  SLCEES  AND  bOITOM 

i60xl  HX(K  ySF^HXiK*  A» 

HX1K,6  l>HX(  K»  7 >• 

HZ  (X  ,A3*hK«>OBH 
HZ(K.5»«HZiK,A) 

HZ(K,6l«HZ(KfAl 
HZ(K.7I  >HZ(K,AF 
17il0  CONTINUE 

11100  IF4LCUT.GE.10I  wHl  T E«LUN4> » 1900  X 4 0X4  I A,  I ,(OZ<  I ) ,1  «1 .1  gA  , 

« (4HX(K»4  ».i*l»l0l»(hg4K,l  l,I«l  ,i0l«K>l,SA 

1900  FUfiMAT  (/841X»10F10,UU 

TRANSFOkH  PROFILES  FOR  SLOPE 

00  2 000  1=1.10 

kP»SCRT(OX(n  ••2*C£4II**2I  > 

PHIa|TN2IOi4  I I .UM  II> 

QXd  l«RP«COS(  PH1»SLC8EI 
U24  17=RP*SIN(  PHI  *SLCCE) 

00  Ksl,5 

IFlK.GT.NSUSP.ANC.NVIFl.NE.gl  GCTO  2iffl 

110 


(v-i45a,  VCLUf'E  il  PAGE  A-18 

LIFTING  UF  PhUGKAM  GLi7ttQ 


IF  (K.EG.  i.ANC.NUMTS^EC.ll  GUTC 
KpsbCKTt  hXiKi  I 
PHl=4TN<'4HZiK.II,HX4«*III 
IF(a8S(PHI) .LE..2i>  Pbl=0. 

HXIK.I  >sRP*CESl  Phi  ♦ShCFEI 
. HZ<K  ,I  » =RP*S  IN(  PhWStCPE  » 

CONTINUE 

{FILCUT.(jE.91  wR  ITEiEUK6«l9(;ul  4 CXI  1 1=  1 , IJi , 1 OZ4  1 1 • 1>  U 10  1, 
» n HX<K.  II  = 1.4  U4K  ,1)  .1  = 1 .IG)  •lOi.SI 

no  Z010  1 = 1 , 9 

ZkJlU  QFL(  il  = SCRT(  (UX(  i*ll-QX41»l**2*4CZiI*l»-CZ4IFI**2l 
no  2 150  Kal , 5 

IF  (K  .GT.NSJSP.A\C.NVihl.KE.0l  GCTO  21Sk« 
TF4K.E0.3.ANC.NUMTS.EG.1I  GCTC  2150 
ftK»eFFPAClKI 

! FlUANG.tr.d.l  bCTG  2102 
C 

C HOUNC 

C 

OU  «260  1=1.9 

IF  4 4 I.Ew  .<»)  .OR.I  I.EC.6>  I GCTO  2XA0 
MFLlX.l  l»iORT44hX<K,l»n-HX4K,I  H**2  ► 

• (HZIK,  1*11-HZ{K,1H«<2  I 
GOTO  2 06  0 

C 

C ELEMENT  CF  AFC 

C 

C0A0  I F(4  FX4  K,I »1 1 .EC.HX4K.1 II .AFO.t FZl  K, I »1) . EO. 
t HZ4K.1I  I 1 GOrC  2ki30 

SPROC=  4 HXIK.  1 MI-CX  (I>1  H*  4FX  IK.  II  -OX  111  I » 

* IHZ4K.  Ull-OZ(  l»lil*AHZ4K.Il-OZlIII 
ANbLE=  ACOS(SPROC/4HK«RKII 

HFL4 X, I I aRK*AKGLE 
2.»60  CCMINUE 
GOTO  2150 
C 

L OITCF 

C 

2100  CONTINUE 

OU  2 T«1  *9 

lF4n.E0.2I.OR.tl.E(48ll  GOTO  2130 
2110  HFLIK.T  IsSQRTf  IHX4K,l*ll-HA(K.III**2*4HZlR.I  »ll -H£  (K  . 1 1 I ••Z  I 

GOTO  21<*0 
C 

G element  CF  ARC 

C 

2130  1F1IFX4K.I>1 l.£C.hX|K»l(I.INO«<F24Krl«ll.EQ. 

♦ HZ<K.IIII>  GOTO  2110 

SPhOC-IHXlK.  I»1  I-CX4  1»1 1 1*4 HX4 K . H-OXl  1 1 FA 
» <HZ(K.  1^11 -OZ  (1*11)  UEZlKt  11*02  (II  F 
ANGL  E>ACOS1SPRCO/4RX««KFI 
hFL( X.ll -RK*ANCLE 

IFf LCUT .GE.10I  MRirE*LUF6.2lA5i  K. 1 .HXIK « II ,HX I K . I »ll  . 

* 0X1  11. 0x11*1  l.HZiK.4J«HZ4K.I^ll.02414«OZ4  Ull.KK.SPROO 
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CuM  INU<^ 

C UM  IN  u t; 

FUHMfT<5H  K,I  HX  , 2 UX , F 12  . J i ,2X  ,6H  jx  , 

cl  2X,rl2  .jl  i/ .bK  H2  « 21  2 X , FI  2 .3  ) >GH  OZ  ,21  12. 3t, 

FK.bPKUC  ,2l^X,  Fi2.3»A 

utfiMTICN  CF  QBSTAClc  ELtPEMS 

uA  - ANGLE  bETwtEN  EiENENT'  AAO  l-ORIZUNTAL 

IJA<  1 JPE 
QAlxIsJ. 

QA(3  IsSLCPE^CANG 
CJmI  >*  t Si,  . 

HAl b l = SLuPE 
OA(o  )3t). 

CjA(7  1 SLGPE-CANG 

OMtdlSki. 

rAI9  l=SLrPE 

DtFlMTICN  UF  FUi  ELEMENTS  SY  OLAORAf  IC 
DG  2J30  K«l,5 

IFIN  .GT.NSUSP.ASC.NxiFl .NE.2)  GCTO  23^0 
tFlK.EC.  i.ANC.NJNlTS.GC.ll  GOTO  2300 
nKs  t FFR  A C I K I 
OU  2^ai?  ]*i  ,9 

1F<HFL(K,II .EC*».i  £CTO  2220 
lElOFLl  I I.EQ.  J.  > GOTG  2-250 

ELEMENT  IS  LINE  SEGMENT 

hAlK.IIsc. 
nbl  K ,1 1 s0. 

HCI K,I »»0. 

HU4K,1)«HZ<K,I »1 I - NZlN«il 
HE1K,IK>  • iHXIK,l».l»  - HX(K,II1 

HP(X,l)s  - <HO(K.ll  • HXIK.II  ♦ HEU,|I  • HZXRtlM 
r.UTU  2202 

ELEMENT  IS  POINT 

HAIX  •!  )>0. 
nbIX  ,i  I 
HCIKf I lae. 

HO(R,ll«M« 

HEUfl  »-tf. 

Hf  U ,1  l«0. 

GUTU  2200 

ELEMENT  IS  ARC 

HACK  , I I-  1. 

Hb4K  ,11  -0. 
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4282 

2iJi; 

♦ 

¥ 

¥ 

4 2 

2 3 52 

♦ 

» 

» 

♦ 


llrf 

ill 

12tf 


HOIK  ,I » = - 2 .»  0X(  1 1 
HPiK.I  »=  - 2.*  lZI  I ) 

hF(K. 11=0X1  II  • CX(U  * CZll)  • UZ-lIl-  - RK  • RK 
CONIINLE 

continue 

IF(LCUT.G£.9  1 MR  ITEf  feUA8<252kl»>  4aFL(  IR*  1 = U91  ,Z0A4  II  »I  = 
( (HFlIK.  It  .1=1  »91  ,11-A(K»1>  *i  = l*<>l,lHB(K,  H.lsU'^l, 
IHClK.n  .1^1  .9>  .4HC4I1,II.I=1,9».4HE1K.II  .1=1  .91  , 

IhFl  K.  IJ  .l>=i*'*  1»K=1 
FUHMtT(9Fl«3.3  » 

CALCULAT ION  OF  STEP  ilZE 


STEP  = lu2b« 

JO  2A8L  K=1.NSUSP 
00  4A2k)  1 = 1.9 

IF(HFL(K*ll.EG.8«i  CCTC  2Ai8&t 
IF(  S16P.Le.hFLU  .Ul  GOTC  ZWki 
STEP=HFL<K,  I I 
CLM  INOe 

STEP»AHAXl(.A^»*STEP.i«l 
IF  (LCUT.GE.l  I MR  ITE  ItURfc, 2551)1  STEP 
rORHATlUH  STEP  SIZEA  ,F10.3/F 
kltufn 

LNO 


SUHRCOTINE  CLEAR  1 CiMl . CAW2.CRH 1.CRW2 , lOX * 

LOUT  •LUNb.l'lNCLR.NPlSCl.KPTSCZ.RUNlTS.OXvUZ.THET  At 
XH.ZF) 

01  HERS  ION  CAMK  15».CAH2(15  I.  CL04  21.  I . avi  1 20  UCLVZl  201, 
lRmI (151  •CRM2(i51.Cx4i0l,OZ4l2).THFTAi2»t 
XPVl  (2UI  .XPV2l2i)  t.ZFMil  20I.ZPV2I20A 
kE«L  HINCLR 

LOCATE  VEHICLE  PCINTS 

VPAl >THETA( 1 1 
VPA2  «rHETA<2 I 
00  110  1-l.NPTSCl 

XPV111I«XH»CRM14  1I*CIS1VP41»CAM1(  ll-f 
ZPVillla/HACRHll  1I*SIN1VPA1»CAM144U 
CUNT IRUE 

IFILCUT.CE.IB  IMRlTE4kUN6»llll  I XPV14  1 1#  I>i«NPTSCll 
1F4  LCUT.CE.l2lHKlTE4kUN6,llll  IZPV II 1 »•  I ■UNPTSCl I 
FURN4T17H  CLEARUtl3Fil.3i 
IFINLHITS.LE.IF  £OTC  1J0 
OU  120  I>l.NPrSC2 

XPV2  (1  l•XH»CRM2(  II  •CCS(VP«2^CAM2(I  It 
ZPV2  (I  I-ZH»Chm24  IF*SIN4  VPA2*CAN24  !F) 

CONTINUE 

IF4LLJT.GE.IUIMRITE4LUN6.11I)  4X4>V2I  !»•«  1 >ltNPr$C2l 
lF(LCUT.UE.10IWRlTE4kUN6«llll  I 2PV2 ( 1 1 « 1>1  .NPTSCZ  I 
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1.  CALCoLmIJ  CL''AB-^Cd  itCVE  LESTAlLE  POINTS 

V- 

1 iij  IU  = 1 , u 
LLUl  lui  = U j(3  . 

H=0X (iOl 
Z=UZ(IOI 

L -^EST  IF  VEnlTLE  IS  ABOVE  QESTACLE  POINT 

C 

IFIXPVllI I.LT.X I GOTO  22u 
IPUK.LE.X)  GUTO  laid 
IFlMNITS.LE.l  1 GCTC  2J0‘ 
iP(XPV2(NPTSt,2i  .GE.XA  GCTC  2i}«) 

t 

0 T^A1L=K  AttOVk  POINT 

0 

IFIXPVci  II  .GE.XI  GCTC  1 SO 

VP2*IPV2I  ll^(2H-2FV2Bl»-»*4X-XPV2(ill  /4XH-X«?V2t  III 
OLOi  lj)=VP/-2 

IF4LLUT.GE.1  itii4KlTE4LUN6»  Ull  IQ,X.,2,VPZ.Coa4  IQI- 
iHl  FukMATi 7H  CLEARl  ,13  ,^F1 2.3  I 

GOTO  2 b id 

ISO  OU  i70  IV=2,NPTSC2 

lF(XPV2nVI  . ic.X  I GCTC  1 VO 

VP2-  iPV-;  UV  . » ( ZPV2{  IV-i  I-2FV2I  IVI  X-XPV24  IVAA/ 

» (XPVil I V-i » -XPV2 ( iVl* 

CL0(  iai»VPZ-2 

1 F (LOOT.  Cc.  i>i  I WRITE  (iUN6,leII  IC«X.,Z.,VP{  ,0001101 
161  FORMAT  (7F  C LcA.<2. 13  «x,f  10.31 
GOTO  220 
178  CUNTINOE 

WRlTEILUMv  I 761  10.'A,Z 
I7o  FURMAT(6F  OEKRl. I3,2F10.3I 

CAtO  EXIT 

VEHICOc  AbGVE  POINT 


180  OC  198  IV»l,NPTSCl 

iFfXPVK  IVI.GF.xi  GCTC  190 

VPZ-lPVl  i IVI  HZPVI 4 -IV-I  l-ZPVlIlV»l*<X-XPvniVl  1/ 

♦ 4 XPVII IV-II-XPVIIIV  U 

CLOI  lOl-VPZ-Z 
!FILCJT.GF,10I 

» WRlTElL0N6,iaol  1G,A*Z,  IVfVPZtCiCl lOi 
18o  F0kMAT(7b  CLEARS  , I 3,2F  10.3, 13,2F1.8.3I 
GOTO  200 
190  CONTINUE 

VPZ«ZH*IZPVi  ( NPTSCIJ  -ZHI*IX>XI<I/|XPV11NPTSC1I-XHI 
CL04  lOI-VPZ-Z 

IFILCUT.GE.10»WR1TEUUN6«196)  1G,X,Z,VPZ,CU31  lOt 
196  FCNNATI3H  06, I 3, 6F1 f ,0 1 

2 00  CONTINUE 

CALCULATE  CLEARANCE  eELOW  VEHICLE  POINTS 
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VCLUJ'E  II 

listing  of  Program  OBS78b 


p 


no  2‘*v  Tv  = l iNPTSCI. 

LLVKl  Vl^lS^b. 

X=XPVl  ( I V» 

Z*ZPVU  iVI 

IFIX .GE.LXt 1 t ) GCTC  ^2^ 

UPZ>CZ  (1  l^iLiZl  2 ) -CZl  IJ  X-lX(  1 uy(OXl2l-OX(  1)  I 
CLVl  ( I V»  =A-QPZ 

I F( LCUT.  GE.  1 J tWK IT EZ *UN6«2  lo)  I V. X«Z ,OPZ . CLVl 1 IVI 
216  FGRMATOH  Vlfia.APlSjJI 
GOTO  2<*t} 

22i}  OC  10  = 2. lU 

1F(  X.GE.CXI  lOI  i GCTC  2ii 

opz=oz  (iu-ii  xcz  ( 10  Mcz  ( lo-iii*  ix-oxnu-i»»/(oxno»-ox  i lo-i  n 

CLVl { IV  » = Z-0PZ 
IF(LCUT.GE.l^) 

» fiHTTEI  LOX6.22b)  I V . >«Z  . lO^CPZ.  C LV  1(  LV I 
226  FUKHAT(jh  V2 . 13.  2^1  e«i«  13.  2FliiI.  3 > 

GOTO  ZAO 
53<J  CONTINUE 

b?ZsCZ(9l»l  UZ(10  »-OZ49»-l*4X-CX(9>IV(CX|  II31K)X(9>1 
CLVl  (IVJ  =Z-CPZ 

IF(L0UT.GE.lJtMRlTE4feUN6.2  3ol  IV.X.Z.OPZ  »CLV1<  IV) 

2J6  FOkN4T(3H  V3.  l3fAFl£.3» 

2<.M  CONTINUE 

0 

C CALCLLATE  CLEARANCE  JELCb  FITCH 

C 

CLHs20bkf . 

IFUF.GE.OXI  1 ) F GCTC  260 

UPZ>UZ1  1 )»lCZ(2t-CZ4iFF*|Xh>OXll>Fy4CX421-OX(  11  F 
CLH»  ZH-OPZ 

IF(LCUT.GE.l«lWKlTEIiUN6»2S6)  XF«ZH,0PZ . CLH 
FORMaTIjH  Hl.AfU.JI 
CUTO  280 

20(3  OU  270  tO-Z,  10 

IFiXF.GE.CXt ICF)  GOTO  270 

CPZ*CZ(lC*ll>iOZ{  10  MCZl  iC-lM*  lXH>GX4iU-il  1/40X1 101-0X1 10- li  I 
CLM«ZH-OPZ 

!F(LCUT.GE.104MRITE( AUN6,266}  XH.ZH. lO.OPZ.CLH 
2&6  F0RMAT13H  H2.  ZF10.  J«i0.2Flli.3l 

GOTO  280 
2 70  CONTINUE 

UPZ>CZt  9 )♦!  OZl  1 0 )-0Zt9l  F*1  XN-CX491  F/IOXI  IJl-OXf  91 1 
CLH*  2H-0PZ 

IPlLCUT.GE.l0)NRITE4tUN6..276l  XH.ZH.OPZ  .aH 
276  FORHATIJH  Hi.NFie.JJ 

CALCULATE  CLEARANCE  OELCb  TRAILER  POINTS 

280  IFlNONlTS.LE.i  I GCTC  325 

Du  320  IV*1»NPTSC2 
CLV2(1V)*2500. 

X*XPV21 1 VF 
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2 =ZP  v2  { I v» 

iFi  *.ge.cx(  1 n i CTC  ma 

LPZ=LZ  ( 1 ) HUi.  ( 2:  -cz  ( in  •(x-cx  c 1 )iyiUxi,2i-oxi  li  1 
LLV2  lIVi=Z-CPZ 

IF  (LCJT.GE.i-3»>^K  ITE  (kU.N6*2  91  » 1 V,A*i,0PZ,CLV21  IV  ) 

2-yl  FQRMfTI  jH  n ,I3,<.F12,J» 

&CTO  32<) 

jJb  iU  31J  IL^Zil^ 

i FU  .GE.CXI  lJ»  I GCTC  3U 

uFZ=CZlIC-l  I MGZ4  lUMCZI  IC-ll  k*4X-0X(  lO-l  U /4  0X<  101 -OXl  IQ-1  11 
CLV21IV1 =Z-CPZ 
IFI  LCJT.GB.iai 

«o  IT  E:  LUNo  .3i.o)  IV«X#Z«IC.CPZ«CLV21  IVI 
3 lo  FUKH«Ti3H  , 13  ,^F  ie.3,  I 3.^f  10.31 

bQTQ  j2 

jU  CCjNTINUc 

uPZ=CZ:v  QZl  14  )•(  x-cxl  ^n/lUXl  10  »-3X(9l  I 

CLV2 ( IVI =Z-OPZ 

T FILCUT. GE.12 IMP iTE4 IUN6,316)  I V,X.Z,UPZ. CLV21 IVI 
lio  rOhH<T (3h  TJ, I3iAF10 .31 

j22  CONTINGE 

i HIMPUP  CLEAf<4NC£ 

f. 

325  '4iNCLM  = CL0(  1 1 

1 DX*  1 

OC  33^  IC*Z,10 

IFlCLUIlCl.uE.PlPCLF*  GOTO  330 
HINcLR-CLU( lUl 
IOX«  TJ 

330  CONTINUE 

UU  3A0  IV»l,NPTSCl 
IF  (CLVl  (iVl.GE.PlNCtPI  GOTO  3A0 
MINCLR»CLVl( IVI 
IDX«  1J040*1V 
3t*i  CONTINUE 

IFICLH.GE.AINCLRI  GCIQ  350 

HINCLR«CLH 

lOX*  nil 

3 50  IFINUNlTS.LE.ll  GOTC  370 

DC  360  IV«lfNPTSC2 
1F1CLV2( IVI.GE.PINCAPI  GCTC  360 
NINCLR>CLV2(  IV» 

IDX«100*1V 
360  CONTINUE 

370  IFILCUT.CE.Vl  UA iTElLUN6»371  1 MINCiA 

371  FOAMATUH  MIN,  FI  0.3  f 0if  I 

KETURN 

END 


5U8kC*iTINE  FORCES  ( X6.  FXXC  , NT  OT  At  ,SSC  ,XPH,<PHI 
OIMENSIUN  AJINV(6««I«W(  li0i«XNl6l,F(6l 

DIMENSION  ALPHCt  J,Zl46ETA0(JI,FX(3,2l,FZ(i«2l,AFI3.2l,TF(3,2l 

116 


0 


I 


\ 


r- <:  05  8 » 
Ll  Sri NG 


G 

c 


c 


1 JO 


1 

1 50 


VCLJKE  11 
UF  PFOGFiJM  CeSTF  6 


LCMMCN  dLPHA(5,2>, 
bALMC(  31  .8AL^4U(3  I. 

btTA  (jr.oETAPOl  «BN1  J> . ER AK Eh  (5 * 2 ) ,871.3. 1 0TH(  3»  , 
CUSA(3.2 i .C0SB(  3 >,C£SG(3«2)  . CGFX ( 2 > . CGFZt  21 . 

LoX(  2)  .CGZ(2i  .CGFVl  il.CFRt  3.21.  CTFI3.21. 

EFFRA0(5  > ,ELLi 5»  , 

FhX,FH2,FNC3,2»  , 

HA(  5 ,9)  .HB<5,91.HC4  5o9F,HO(5.91,HE(S  .91,HF15k9l  . 
HFL!5,9I  ,HXI  5 .10  I.HZfiS  tU  I, 

GAHMA(i.2». 

18(5, 2t,  1P(5...1.  1H(  bUit 
LCUT.LUNb. 

NSUSF.NUM  TS.  NMl  51.  ^H2(  5)  , 

UA(9),CFL(9)  , CX( 10)  .0Z(  101  . 

PM(3  l.PUhFRRi  5.2  I .FU3)  . FX PCO(  3 l.FZt  31.  PZPCGi  31  . 

FBCl  .R8(,2.RKI3.2  1 . 

SCALE!  6 I .SFLhG(S1.S  IAA<  3, 2).  SINE!  31  (STEP, 

THETBl  ,ThETB2  . 

X(  5)  .XPbCISl  .xP«<(5,21« 

Z;S1  .2PBC19I  .ZPRCFi  5(2).ZP)«(5.2) 


INTEGER  SFLAG 
EXTEFNiL  CAL  FUN 
JSTEP>.0001 
DHAX'lOk). 

ACCs  1. 

HAXFLN>5  JU 
KAClANaS  7.  29377951 
DC  1 eo  I 31.NSUSP 
SlNbd  I«S1NI  BETAFI  ( )• 

CuSb411>CUS(  BETAPt  H* 

00  100  J*1.2 

SINAII .J l>SIN(ALFhA( I.Jl) 

CUSAd.  J)>CaS(  ALFHA(i(JII 

lF(Nh2(J)  .NE.0.ANC.M(iJ).EC.01  XN41l>.tfl 

CONTINUE 

IFINLNITS  .EO.  1 I NEBoi 
IFtNLNlTS  .EO,  2 > KE€*6 
N»0 

SALPHA«0. 

OC  150  I«1.NSUSP 

1 F(Nk(  II  .E0.2IGCTC  130 
N»N^  1 

SALPHAaSALPHA»SINA(  U1  F>CRP<  1 .11 
lF(SFLAG(It.EC«0.CR..Ali(ll  .EG.ll  GOTO  150 
N«N»l 

S ALPHA'S  ALPHA^SlAAl-loZl-CRPl  1(2  I 
CONTINUE 

IF(N.EU.0)  GOTO  180 
SCALE!  1)  «1. 

XN(1  )>SALP.!A/ FLOAT!  M 


PAGE  A 
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-I  sting  JF  KHUGK6M  CbS7oB 


hi. 

ittj  W<<  I T bl  LU  N6  « i d 1 I 

itJi  FQkM^TijlH  FORCES:  ExPCR  IN  NC.  CF  WHEELS) 

CALL  EaIT 
IVk)  CUNTINUF 

rtu  cii}  L iNEC 

IF  (- .01  .LT.XN(L  ) .ANC^XNiL)  .LT..011  XNlLI'.kii 
I FI  XN(  Li  .Eg.0.  ) SCALEILH^U 

IFIXMLI  .NE.t.l  SCALfiat^l  k..**lFlXXALUG104AaSIXNILil  II 
ANIL  )»XN4LI/SCAL  EiL  I 

2’i)  CONTINUE 

I Phi NT=LOUT-ld 

CALL  ECSCL  ( NEC.  XN»  f -A  J INV  , CST  EF  .CI^AX  ,ACC«IUXFUN, 
W,WAXC.LUN6.1FR1NT,C««.FUNI 
NTOT  AL  = NTQTAL*hAXC 
UG  ills  L = ltNEQ 
jJJ  XN(L)=XN(LI*SCALE1L  I 

sso=e. 

00  420  K=1  ,NEO 
HoP  SSQsSSO*  F4  K ••FI  K I 

IF(SSU«GT.lo0.)  »RirilLUN5»6kIWl  XN.F.SSQ 

IFILCUT.lT.  la)  WETUhN 

OC  S^^  I=i.NSUSP 

acTASl  !).-acTAP{  I i*hACI<'N 

OC  5fe^  J*l,2 

TFII  , JI  = FN4  I,Ji*CTFH,JI 
KF(I.J)=-FN(1,J) •CnPAJ.Jt 
TFhF»TFl  I,  JI»BF(  I,  Jl 

FXI  I,  J I s-FNU.JI  •SINAd.Jl  ♦TFPF*COSA(  UJI 
FZi  I ,JI<  FN(  I,  Jl  •CCSill  *J)  *TFRF*S1NA4  I.JF 
ALPHCI I ,JI >ALPHA( 1, JA«RA01 AN 
5l0  continue 

60U  FORMATdbH  SSC  OVER  L4MtT  ./,SH  XN«  .612  X«F12»3 1 >/5H  F-  . 
» 61 2X,FL2.il«/,6H  SSCa  ,2X.F12.3» 

'wRiTE(LUNb«90bF  SSC«PAXC»NTCTAL 
IFf SSQ.GT.10d.l  «Rl1flLUN6»910)  XN»F 
WR1TE(LUN6«92WI  XFH.iFH 
wRlTElLUNa«9iol  (XI  !»• NSuSP I 
WRITFI  LUN6,940I  ( 2(  1>1  * NSUSFl 

wRITEILUNbf 9501  ( (C<k4 II .CCZI ll»tl«l«2l 
•KITE! LUNA. 960 1 (< AiFHQl 1 , Jl . J«  1.^6. I«1.NSUSPI 
WR1TE(LUN6*970I  ((C<EX( H • CCFZ M I 1. I>1 I 
WKITEl  LUN6«9aai  fhX.FHZ 
WRfcTEILUNt>.990)  (SFLiGl  1 1 . 1-1  »NSUSP I 
wKlTEi  LUN6.1004I  •(N60il,i«l,NSUSPI 
MR!  TEI  LUN6.1010I  ( ( Ml  I.Jl  I-l.NSUSPI 

00  700  I*1.NSUSP 
IFISFLAGilI.EC.l)  GEJQ  800 
700  CONTINUE 

GO  VO  65 1)  > 

80U  WRiTE(LUN6. 10261  ( SEIAC  ( 1 1 . 1-UNSUSPl 

WRITE!  LUN6, 1025)  IBklOTM  1 1 » 1-1  .NSUSP6 
WRITE(LUN6tl0J6)  <B hill  .1-1  .NSUSPI 
WRITE(LUN6. 10401  14  Ell  I *JI »J-lr 24. 1-1 .MSUSP) 
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313  J 

«f<lTE(  LUNb 

.1050 

1 1 ! CRR!  l.Jt.J»l.^l,  1 = 1*NSUSPI 

-vhITEI  L'JNb 

. 1 L'  0 0 

1 11  CTFl  l.J  t,J«l.^l.l=l.NSUSPI 

r El  LUNb 

.1070 

1 (1  Fbl  I.Ul.J^l. 21*1  = 1. NSUSPI 

.vKITElLUNb 

.loao 

1 (1R€4  1 .Jt  .J  = l. 2}«  I=l.NSUSPt 

xKITElLUNb 

.1090 

t 11  TFEI  .Ji  .J=U2A,  I = i,NSUSPI 

xRlTElLUNb 

.1100 

i (IFIl  I.Jt.J=1.2UI  = ltNSuSPt 

-KITElL'JNo 

.1110 

* 11FZ41.JF*J=:1, <1.1  = 1. NSUSPl 

MRir ElLUNb 

.1120 

> ( FX41L1  .1  = 1 .NSUSPl 

xkI T E ( LUNb 

*1130 

) 1P241) . 1= l.NSUSPl 

nRI  TEI  LUNb 

*1  i40 

1 1 PPbll  . I=1.NSUSP) 

FORMAT (6H 

SSQ 

.F12«A,4X.7F  CALFUN.2X.14,4X.8H  TCALFUN. 2X.  181 

9U 

FORMATlbh 

XN 

.o42X^FL2.31/bH  F . 

blZX  .F1Z.31  1 

FuRMAKbH 

XPH 

.2X,fi2.3,8X.bH  ZPH  .2X.F12.3I 

HiA 

FORMATlbH 

X 

.101  2X«F10.2n 

9<»a 

FURHATIbH 

2 

.lOKX^FlZ.ZlI 

^StJ 

FURMATl  14H 

CGXl 

1I.CG41  Ll.ai2X.F10.2»l 

ioA 

FuRMAUbM 

ALPHA 

.1O14:X«F10.4:)) 

97H 

FORM  ATI! 7H 

CGFX 

1 U.CGFZl  n .101  2X.FI0.il  1 

'VOtf 

cQRMAT  13jH 

FHX. 

FhZ  FORCES  AT  TRAILER  HITCH  . 2 1 2X  .F  10  .2 1 1 

FURMATlbH 

jFLAG 

. 101  2X«  1 1011 

13k9t. 

= 0kM  AT  (oH 

N^ 

, 1012X. llol  t 

i JIO 

FORMAT!  OH 

RR 

. Ib4  <X«F10.2<  1 

1 v»^U 

FQRMATlbH 

betap 

, 101  2XtFi0.2  i 1 

1 k5Z5 

F Qkm »*T ! 7h 

0WICTH,104^?(, F10. Zn 

1 J34> 

FORMATlbH 

bN 

. 1012X,F1m.2M 

1 

form  AT!  6H 

BT 

,10(2X«F10.3n 

1 05? 

FORM  AT! 6 H 

CRR 

. 101  2ft«F10..21l 

1 ObO 

FGRMAr46h 

CTF 

.10l2X«F10.2ll 

1070 

FORMATlbH 

FN 

.101  <X«F10.2M 

1080 

FORMATloh 

RF 

.10UX«FiU.21l 

1090 

FURMAT!6H 

TF 

. 104  2XbF10.2ll 

1100 

FORMAT  !6H 

FX 

, 101  iXbFlO.Zli 

1110 

FORMATlbH 

FZ 

.104  iXbF10.2}l 

IIZO 

FORMAT  !6H 

PA 

.io(  21L.F10.2tl 

lliO 

FORMATlbH 

PZ 

» 104  2X«Fl0.2M 

1140 

FORMAT  !bH 

RETURN 

cNO 

PM 

« ie4AX«F10.  Ill 

SUBRCUTIKE  NFCRCE  < >X»XXT  .XZM,  XZMT«22**ZZT  I 

C 

c 

CLHMON  ALPHACS»ZT» 

» bALMCm  .UALMUOl* 

» RETAtil  .eETAP4  31  .BN4  Jl  t SRAKER4 5 «Z»  ,BT(  J,  Z t-,BUl OTHI  31  , 
» tUSA(3.^l,COSBtil,CCSG4  3«2  l«CGFX4  2 1»CGFZ  (ZIt 
» CGX(  2I»CGZ4ZI,C0PY4  <»«CRR4 3,4:1  .CTf.lJvZS 
«•  EFFRA045  I,ElL(  51  , 

» FHX,FHZ,FN(3,Zt , 

* HA15,9»,HBI5,9J,KC4  5 AB  A«H045,9  ( tHEf  S,9F,  HF4S  .9 1 , 

» HF4.l5,91,HX(5,10l,HZi5,l«l, 
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•-  16(5  .21  .IP(5 

♦ LUUT  ,LJN6, 

NSUSF,NUMTS,Ni<(  ^»,^ta2(51, 

«■  uAly  t.UFLi  y I I GX«  131  .fiZnei  • 

^ PN(3  '.PUWEKR (5.2 I.PXIBI  . PX PCG ( 3 1. P2 <3 ) .P^P CGli ) . 

♦ SCALEkbl  .SFLAu(5J«S1«<A(3,2)  .SlNeni  .STEP. 

♦ THrTei,THETB2. 

» X { SI .XPdC(5) .XPW (5.2V« 

♦ 1(51  ,ZPBC(5I  ,2PRCf<5«21.2PI»(5,2F 

C 

c 

iNlEGEk  SHLAi. 

DlPEkS  ION  ANGLE(  1»CCSANG(  3.  2 I.  FOftCEl  3.2.1  *S  INANGT  3.  21 
XA=- FHX*CGFX<  1 1 
ZZ  = -fHZ»CGFZ( 1 I 

XZP«CGFZ(  1I.*CGX(  IF-CfiFXti  ♦•CGZI  lUCGMVIll 
Uu  52  isi.NSUSP 
C iET  TtJ  ZERO 

BN(Z  1=«2. 
dT(  1 .1  1 skJ. 
bT( 1 ,2»  = e. 

FCkCE(  l.iJ  =2. 

“0«c  t i 1.21  = 2. 

L IF  SINGLE  WHEEL  ASSE«6LY  GCTC  1 kl 

tF(5FLAG4II.EG.2.Oft.lSFLAGTn.EG.l.AN0.NW(l^.EQ.3n  GOTO  13 
C IF  BCGIE  assembly  is  SUPPCPTEO  CN  eOTH  WHEELS  GOTO  20 

IF(  ( SFLAGt  II  .EO.  1 » . AA0.4  NM(  T » . EO.  01-1  (;OTO  20 
L IF  BCGTE  ASSEMBLY  IS  SUFPCf'TEO  CK  CNE  WHEEL  ONLY  GOTO  30 

IFiSFLAGill  .tO.l  .ANC.iNWl  lI.EQ.  UOR.NW4II.EQ.2II  GOTO  30 
HK1TE:LUNS«5I  i.SFL  Z6(  II  «NW(  11 

5 FvJRHATl  A2H  ERKQR  IN  WHEEL  SUPPORT  SPEC.  I,  SFLAG.NW>  . 

«>  A<2X.13I1 

C SINGLE  WHEEL  ASSEMBLY 

10  J«1 

CTF(  1.21*0. 

CTR>CTFt  1.  JI-CRRd.wA 
IFIFMI.JI.LE.B.I  CTM«e. 

PXII  )«FN<I*  JMlCCSAIi.JlPCTR  • SJNA(I»JIF 
PZ(I  l>FNii.JI*(CCSA(l»Jl  • S1NAU.JMCTRI 
PMII  l*FNn.  JlwRRIl.gAfCTFl  I.  Jl 
GOTO  <»0 

C bUGIE  ..SSEMBLY  SUPPCATEC  CR  BOTH  WHEELS 

^0  DO  05  J>1.2 

C ANGLE  OF  THE  VECTOR  4TTACHEC  mT  WHEEL  CENTER 

ANGL  E(  1.  JI«GAMMA(  1.  JA^BETAPI  1 1- ALPHA!  1«  Ji 
S1NANG(I.JI>SIN(AN<LII  J.JII 
COSAKGI I.0I >CCS( ANGLEI I.JAI 
25  CONTINUE 

J*1 

IF(NW2(i)  . -'.21  FM  I#1I«.5*FN(1  .1  » 

FUHCEi  1.  Ji  -NI  I.»H/C£SG4Iv  Jl 
IFIFNd.  Jl  , . - .I.l  FCRCEt  I.JI-FN41..JI 
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C ixCKMiJL  FORCE  ON  tOG  1 1 oEmMJEQ.  FCR  aOTh  WHEELS) 

ttN< I ) = FOPCE( I, JI»CCS«NGI  1,  Jl 
C TANGENTIAL  FORCE  ON  iCGIE  EEAM 

bin  ,J)>FCRCEi  1.  J)*SiNANG4  I.J) 

L NORMAL  FORCE  TC  THE  GROUND  ONCER  WHEEL  J=2 

PQRLEl  I ,J)=6N(  II  /COSANGd.J) 

FNtI  ,JlsFCKCEII,J)*CCSGIl#J) 

TANGENTIAL  FORCE  ONCER  WHEEL  J = ^ 
bT  n ,J  » = FORCE!  I, j)*S JNANCI  i,J» 

c fukces  acting  on  FIVGT 

BN2=  eN(n*2. 

C TOTAL  tangential  FORCE 

bIT^bTI  l,lfc»BTti',2) 

C COMPCNENTS  OF  THE  P IWCT  FORCE 

PX(  I l = -0N2*S  1NB(  K *£TT*COSB(  I ) 
pzii  )a0N2*casei  I )♦aTl»s^^B^ I) 

C MCRtNT  AT  PIVOT 

PMU  l-FM  1,1 ) •RKI  I,  IRwCTFi  1 , 1 > N(  1 ,2  » •KRI  I , :;l  •CTFI  1,2) 

goto  AO 

0 BOGIE  ASScMBLY  SOPPCrTEC  ON  ONE  WHEEL  ONtT  < ON  08ST.) 

3i  J * Nw  ( I ( 

BW®  . 5*BW  I0TH(  i) 

1F(J. EQ.il  K=2 
IF(J.EQ.2)  K*! 

FN( I . JI«FN( 1,11 
FN(I,M*«J. 

CTFI  I,  K)=vl. 

IF(J.EQ.2I  bWs-BW 

ANGL  E(  L,  J)®GAHHA(  U JW BET  AF(  1 1 • ALPHA!  I,  JH  ' " 

^INANGd  ,J)sS  IKl  ANGLE!  1*0  I I 
CUSANGi I ,J>«CCS( ANGlEli,0) I 
FORCE!  i.j)®fn:  I.  JI/CGSG!  I,Jt 
IFIFN!  I,J).LE.0.)  FCKE(I»J><FN(I,JH 
L NORMAL  FORCE  ON  EoG  1 E BEAM!  EC.  FCR  BOTH  WHEELS!* 

BN! 1 l®HORCE! !,J1 *CCSANG(1, J) 

C TANGENTIAL  FORCE  CA  ICGIE  EEAH 

bT(I  ,J!*FOKCEi I, J!*SJNANG( I,J) 

PX!  I i«-6N!  n •SINE4  1!«BT!  I,  Jt*CCSB4  !!• 

PZ(I  l«6N!JI*C0SB!l!«IT(l«Jl*SINe!Il 
PM4  I i*FNI  I , Jl  •RR(1«  J»*CTF!  I ,J!-»EN(  I»*BU 
AW  CONTINUE 

SO  CONTINUE 

SIGN  CONVENTION  FCP  HENGTH  OF  THE  MOMENTS  ARMS 

♦ FROM  hitch  to  THE  ftiOHT  SIDE,  » IN  UP  DIRECTION 

♦ FOR  MOMENTS  CCw. 
no  120  I®1.2 
XX»XX*PX!ll 
ZZ>Z2*PZ!I) 

XZM>XZM»PX(  1 1 •Z!  II  afJl  I IWXI I )»PM(1 1 
IJW  CONTINUE  ' ■ 

IFINSUSP  .;EQ«  2 I GOTO  200 
C FCHCE  SUMMATION  fOM  TRAILER 

XXT>PX!3l»FHX»CGfX( 2A 
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liT  =fn  *C0fH  2* 

A^KTr - PX<  i»*Z 1 3 » ♦PZl  Jl*x(  3 » ♦CGFZti J*CGXt  2 »*PM«  31-CGFX ( 2 )*C&Z ( 2 » 

♦ CGM  r(  2 » 

HeTuPi^j 

Z/.T=c. 

XZHT  . 

REToHN 

END 

L 

L 

C 

SGdKLUTlNE  CALFU  MN  .AN,  F » 
integer  SFLAG 

L 

L 

COMMLN  alpha (5, 2 >,  • 

*■  UAGHCO)  .BALHUiat, 

•>  dETAO)  .BETAPOl  .BN4  3*  . EP  AK cR ( S«2 1 • BTl i , 21  ,BW I0TH4  3)  . 

» CUSAn.2>.CaSB(3l,CCSG<  3«2  l»CGFX<2l,CGFZ12l. 

CGX(  2)  .CG2(2)  ,CGPV(  2>«CRft(  3#  2 1 . CTF.(  3 1 2 1 , 

♦ cFFRA0(  b I.ElHSI  , 

» FPX^^rtZ.FNC 3,2»  , 

♦ HAI5f>l#HBiS,5)kfhCl  5«9^»HUJ5'9)>tHcl5.%»»RFl5.9>» 

» HFL(5*9I  ,HX(S,i()).H2l5«U). 

» GAMMA!  3. 2 l« 

» ia(b.2j,iP(3.a»lH(<«2l, 

♦ LUUT.LUNb. 

» NSGSF,NUN|TS.NM(5) .NMixSIf 

♦ 0A(9  I.UFLi9l  ,0X1  10.1  ,£Z<  , 

» PM(3 ),RUwERK(5.2ltPX4«i ,PXFCG(3>,P2i3)tPZPCG(3l  , 

» nBCl ,RBC2,HKl 3.2). 

» bCALE(6) .SFLAG4  5I.S iNA i 3, 2 ) . S INB (3 1 • STEP , 

♦ THEiei ,THETB2 . 

» X(S*  .XPBCib) .XPM(3»2<« 

♦ £4  31  .ZPbCiS)  .ZPPLF4S«2N.ZPh(S•2^ 

C 

C 

OIMENSIUN  XN<6I.F46I 
CTFR*XN: •SCALE41I 
FN(  1 .D^XNIZl^SCALEliJ 
FNiZ.lOXNl  3I*SCALE(3J 
FNO  .1I«XN<<.)*SC4LE(AI 
FHX*  XN(5  I^SCALEl  5 I 
FHZsXN(6)*SCALE(b) 
no  idk)  1 = 1.3 

CN(  I .21  = 0. 

UU  i2J  J=1.2 

!F(CTPK.GE.p.)  CTF(  1.J)  =CTfP*POV»£RR<irJ>*FiOAT4  IPI  1.311 
I F4  CTFk.LT.0.  > CTF1UMI>CTFP*BRAXER1 1.  J>*FL0AT4  IM  I.JH 
GAMMA!  I . J)«ATAN(CTF  (i«J>-CPR41.3M 
COSGd  .J)=C0S4GA»XAIJ,jn 
14)t«  CUNT  INUE 

CALL  NFOKCE  ( XX. XAT .XZP .XZ FT, ZZ .ZZT I 
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P ( 1 > »XX 
PJ  2) ~ll 
fi  3»  =XZM 
F< Al  =XXT 
F (5) =ZZT 
F<  6>  =XZMT 

keturn 

END 

SUBRtUTI^E  MGVtb  (CSLOPE.NEa, 

* NVEH • .RbC.kcFFTl ,RFTCF,FWL IP. ^ SLOP E, SSQM  , IHEI A,  T hETAH, T NET BH, 
TwLI  P.  XPlG.XPH.Z  fCG^iFHJ  , 


L JHMCN  ALPHA!  5 ,2  i, 

♦ oALMCt  i>  tdALMUU 

» HFTAk3)  . BETAP(  3 I .BNXit  . bRAKEK(S,2i  , BT43 , ^ dW  lOT HI  3t  , 
» lUSA (3.^1 .case ( 31 *CCSG( 3,2 ) ,CCfX(2l fCGFZ (2«» 

» CGX( 2« .CG2( 2 I ,CG»y4 3,2), CTFI 3,2) , 

♦ cPFK  AO(b  t .ELL  (5)  , 

♦ FHX,FHZ,FM  3,21  , 

, HA4  5,9)  ,Ha<  5,<JF,FC(5,9»-,HCt5,^»,HE:b^<3),HF:5,9), 

» HFH  5.9)  ,hX<  5,12), HZA5,iBF, 

♦ gamma:  j, 2), 

» ! at  5 .2 ) , IP< 5 ,2i.  IH( 542)  , 

♦ LCUT,LUN6, 

N3US  F.NUNITS  .NHt  5»,  Am2<  S) , 

^ UAI9).0FL(9)  ,UX(  liil),CZtl2), 

» PMt3  ).POHEKR<5,2l,PX4ii  ,PX  FCGi  J ),  PZ 1 3 »«PZPCC4  3)  , 

♦ RbCI  .RBC2«RR(3,2), 

f S CAL  El  6)  ,SFLAGt5A,SIAA(3,2),SINE(3)  ,STEP, 

♦ ThETei ,THETB2, 

» X(5)  ,XPBC15)  ,XP,!t5, 2A, 

♦ Z{5i  ,ZPBC:5).ZPNCF(  522)  ,ZPK(5,2I 


lUTECEK  SFLAG 

OIMEASIGN  AJiNV(0,6J3cLEVi  51, 

♦ KbCI  51  ,RHiCH|2),R),LiPt3,2*  ,THET  AI2  ^,THET  AKt5), 

» THETeHl  2I,TWLIM(  3,2  ••)!(  IIB  ) ,XLI  5),  XPCG(2  A,ZPCGt2 1 
EXTERNAL  ELEVAT 
DO  I>1,5 
!..•  NM2(I1>NH(1I 

OSTEF«.B,)ai 
OMAX^IJB. 

ACC«.l  •STEP 
MA  XFUN»5aii 
PXPCGl  1)  •XPCGt  1) 

PZPCCl l)»ZPCG(  XI 

PTHETA-THETAII I 

NEQL>3 

NAGA  rN>B 

NMt  1 

Nm4  2 ) 
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IHFT  cl  = ThETAJ't  i‘ 

THeie6=THeTA^( 

.vdci  =Rc5Ci  n 

K 3C2  = RbC(2  • 

IF  < SFLA&i  1 1 . EQ.nJ » oCTL  2c 
NFCL  =<. 

XL (h  » = bETA( 1 1 

2.)  I r<SFLAG(2l.6C.J  » GCIL  32 
NECl=N6QL*'1 
XLINFCU  =BET  A(2  I 

3c  xm  i = PXPCG(  1»  *STEP*CSLOPE 

XL  (2  »=P2PCG(  1 ) ♦■STEF^iSLCPE 
XL(3  I = PTHETA 

TFILCuT.GE.lB)  taR  IT  E4iU  ^6  , AO I NECL* 

» thET tl,ftdCl,THETe2.fleC2,iXL(L> ,L=l,NEflL  » 

‘.ft  Fj^MAT(6h  MGVEI,  lA,  1AF8.  J*' 

LQUTsLUoT*'  L 

CALL  ElEVAT  ( NEQL.XI^ELEVA 
LaUT=LCUT-l 
! PRI  M = LQL)T-lil 

C44.L  EQSOL  ( NEULfXL.BLEV,  AJINV.LSTEP, 
f UMAX ,ACC,MAXFUN,w^RAXC, tUAo,!  PRINT ,tLEV AT  I 
LCUT=L0UT«-1 

CALL  fcLEVAT  i N EOL.XL* cL GV » 

LCIjT=LLIUT-1 

OU  Se  L=1..NEUL 
32  SSCM»S>S0M*ELEVIL  ***2 

<PCG( Its  XL( I I 
2PCG(1  UXL(2I 
THETAI  1 )»XLI  3» 

IF(LCiJT.GE.12i  MRITEALUA6,61 1 XFCCd  > ,2PCG4  1 ItTHETAl  II  , 

' XPBCIl  I.ZPBCI  1)  ,XPW<i,i)«ZPW(l»lA,lH<U-lNXPBC|2l,ZPBC(2), 

♦ XPM:^,l),ZPWi2,l 

31  FURHATloH  NOVEZ , 7F  10«], I 3» API i.J , 13 1 

IFISSOH.GT.Iitf.)  NRITEauN5,66*  SSGM,MAXC 
bu  FURMAT(23H  SSQP  CVEP  LIMIT  : SSOP« , El  S..7» 

♦ bht  HAXCs , (b  I 

IF(NEQL.E0.3)  GDTU  3^0 

C 

L UNE  SUSPENSION  ON  UNIT  1 13  A 8CC1E 
C 

1F(SFLaG(1I .£0.1  .AAC4NM4il  .£0.01  GOTO  70 
bcTA(2TaXLf  <»l 
GOTO  dJ 

72  BETAlllaXLlAl 

1F4LCUT.GE.10I  N R IT  ElLUAb,  71  t BET  AU  UXPWn  » 21  •ZPWl  L»2 1 • 

» I HI  1,2  I 

71  FORMAT  (6H  HUVE3,iFUi0, 13) 

IF1SFLAG(2).EO.0.CR.AU(2I.NE.0I  GCTO  85 
bETA{2l«XLIS) 

80  I FILCUT.GE.i0l  WRlTE4iLUN6,  Bi  I BETA42  lrXPWl2»2)  t£AUf2  .2  I v 

♦ IH(2.2) 

81  FORMAT  l6H  KJVEA,3Fia«0*  131 
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C ChECn  FIKST  SUSPENSION  ECClc  CuT  lF  LIMIT 
C IF  SiNoLE  AXLE  Ca  bUGIE  ON  UOTH  -HEELS  LEAVE 
t 1 hE  T 3 i AND  K bU 1 
C 

dS  I FI  SFLAGI  1)  .cC.2  .CH.AW4  it.NE..))  GOTO  190 

iFIbETAl  i»  .GF.BALMUl  lit  NV<(1I>1 
IF<  BETmI  II  .LE.BALMOiin-  NM4xi>2 
IFI  5<=lAG(  H.EC^i.CP.ASFLAGin.EC.l.  AMC. 

» Nw (1  l.EO.dl I GOTO  1 SA 

! FI  S FLAG( 1 I . EC.l .ANC^AmI 1 I .EC.l  I GOTO  150 

t- 

L FmsT  Suspension  bogie  cn  feap  hhecl  cnlt 


THET3i=Ti»LlM4  1,2  > 

“BCl  =PhL  lMn,2» 

BETA  (1 ) -BALMOl H 
GUTO  173 
L 

L rUsT  SUSPENSION  BOGIE  CN  ESQNT  WHEEL  CNLY 
u 

l3d  THETElalHLlhl 1,11 

KbCl «h  wL IM4 1 ,1 > 
bETA( 1I»BALMU(1  ( 

173  [F  INEOL.EU.5I  XLlAl^ALiSI 

N60L*NE0L-l 
N GmIN»1 
C 

C CHEuK  SECOND  SUSPENSION  cC<IE  CUT  OF  LIMIT 
L IF  SINGLE  AXLE  CK  BuGIE  CN  BOTH  WHEELS  LEAVE 
U THETB3  ANU  RBC2 
L 

193  1F(SFLAG(  2I.EG.3.0f<.NM(2>.NE.3)  GUTC  264 

I FlbET-i 2I.GE.bALNU<i» > NW(2I-1 
lF(BFTA(2t .LE.UALP0(2I)  NWi2l«2 
IF<  SfLAGl  ,.1  .EO.S.OR.ASFLAGf  2I.EC.1.ANO, 

» NW(2I.EO.0M  CCTC  2A0 

IFiSFLAG(^:i.FQ.l.AKCw^W42A.E0.1l  GCTO  250 
L 

C SECOND  SUSPENSION  BOGIE  CN  REAR  WHEEL  ONLY 
C 

TMETe2-THLIM42,2» 

NBC2  "KWL  iMl  2, 21 
BETAi2i>BALNC42l 
GOTO  270 
C 

L jECuNu  SUSPENSION  BOGIE  CN  FRCNT  WHEEL  ONLY 
C 

253  THETB2-TWL1MI  2.1  I 
-0C2  >HWL 1M42 .1  I 
bETAI 2I>BAlHU(2 I 

<73  NEGL«NECL-1 
NAGA  IN>1 
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K-2J53.  xJLOf'E  il 
LiSTING  ffOGnAt*  >3S7tfc 


C 

cdkf  1 E (NAG^i.^.cU.ei  CuTc  iJi 
naGa 
Guru  jj 

c 
c 

G uMT  I POSlTiONEC  CN  hhEELS  - CHECK  FCK 
s.  iPwUCNfeT/ItLEK  iNTckfcWENCI  If  TRACKEC 

C 

Jk'J  IP(HVEH1  .NE.  J»  GCTC  «ii4 
Track E'J  VtFiGLE 

«««••««  uler  anc  spkocket  Support  check  here  •••••• 

aSP=»PCG( 1»  »KaC<Al*CCS(TH€TArfiAl*ThETA41AI 
Z^f  siPcG<  n »r«bCi  Al»SiN4  THETAbi  aAkTHETAI  HI 
CAU.  MHEELi  ( P.HA,hC»HE«Hf  ,HX,  lHiA«l  lr4»LOUT,LJN6» 

► XSP,  ZSP.ZPkOFI  A,  IM 

IFlLCU'^.GE.lDl  KiilTEU.UNo  .311  t ASF tZSF>£PR0Fi4»  1 1, IHf  1 1 • E 

jll  FCRMATITH  HOWESa  .3f  IJ«3  . 15  ,PU.3I 

lf(  E.GE.*.  II  GCTC  aX4 

FRCNT  SPROCKET /ICLEk  IMEIEEHENCf 

THETBl=Tr-ETAtf  t Al 
KBCl«RdCtAl 

IFISFtAGI  H.EC.A.CR.KNI  ll.KE.i3A  GOTO  J2§ 

IFlNEdL.EO.S  I XLlAl«AL<5l 
HE  Cl «NFOL-l 
jZB  NaGaIN>1 

Hm(1  l«3 

AJA  ASK>APCUlH*PeC4  >l*CCS(THETAtf(SI»THETA4l)l 

ZSR>ZPCG(ll*RBC45»*SJNiTFETAtf (5I*7FETAI1II 
CALL  MHEELi  ( E»HA,hC«A«E  .HF  «NX»  1 h4  5^  I lr5»1.0UT«LUN*v 
» XSF,ZSF«APROF45.  HI 

IFILCUT.UE.10I  iiRITEAlUKA.All  I XSM»lSR«ZFKlF|t«ll.  IHIS.  ll,E 
All  FCRNAr(7H  MOVES5*iFli.J»4S«Pl««JI 

IFIE.GE.'.H  GuTC  5B4 

HEAR  SPROCKET/ IDLER  IKTERFEPENCE 

THETe2«THETAilSI 
RBC2 •RtfC4S I 

IFISFLACf  2I.EO.i.CR.KH4  21. NE.tll  GOTO  A2f 
NELL •NECL-1 
A2r  NAGAIN*! 

NMl/  1-3 
C 

5iB  1FIN4GA1A.E0.BI  CCTC  6SE 

NAGAIN"/ 

GOTO  3/ 

C 
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t-ISTlNG  uf  PPUGkAM  Cai)7oe 


t ANGLE  UNCtk  rtMtELS 
L 

oad  IF(Ni»I  it  .EO.^I  GCTQ  *113 

C '.LL  WHEELl  I ALPHAi  HE,  1H(  1,  1) 

^ xpwii.n  .ZPxi  i,iF» 

IPlLCUT.GE.lJi  «KIT  EiLU^6.6ao»  XPm(  1 , 1 )-,ZPM  1 i ,1  > , 

♦ iH(i .11 .alpha: 1. U 

o>)6  FUkHATl7H  MOV  E 1 1 . JF  li.  3 . U .FI  d.  3 i 

bid  {F(Nk>:  1)  .EO.  l.CR.SFLiGd  i.EC.dl  GOTOoZG 

CALL  mHcELI  1 ALPHAI  l«il  .FA.hCtFE,  IMi.Jt,  UOA.UZ. 

♦ XPtil  1.^1  .ZPWl  1 .231 

IF  (LCUT.GE.  1 U)  ilRlTElLUNa.AlA)  X FM  1 1 , 2 1 ,ZPm  (1 ,2  » . 

♦ IH!  I .2  i .ALPHAd  .iJ 

olb  FLkHAT(7H  HOVC12,2FU.J,14,F1iJ..3» 
o2J  IFiNtil2i  .EQ.2)  G CT  C 432 

CALL  WHcELl  (ALPhAliai»FA,HO,HE,lHl2rll»2*OX,OZ, 
» XPWl 2.1)  ,ZPW<2.1 33 

IFlLCUT.uE.l?)  MRlT£iLUN6.b26«  XPWX 2 , 1 ) ,ZPmZ 2 d > . 
» IHld  .11  . ALPHAl  2.  1 > 

626  FORMAT(7H  AQVE^l  ,2F  14.3.  K.Fl  x».l  > 

b)4  IFINMUI  .EQ.l  .CK.SFLAC<2I.EQ.4»  COFO  6Xitf 

CALL  .«HFtLl  1 ALPHA!  Z.ZI.HA.hO.KE,  lH12,2).2«ax,OZ, 
» AP.<(2,2I  .ZPW12.2ii 

IFlLCur.GE.  U I «HlTEllLU7fc  .6361  xPW<  2 , 2 * . ZPW4  2 , 2 » . 
» IH(2.2», ALPMA(2,21 

0J6  FuhHATt'h  AQV  E 2d  »A  F 14,  3 , N , FI  0.3  ) 

6A2  CUNTINU. 

C 

C LOCATE  HITCH 

C 

XPM*  XPColli  mHTCFdiACCSJTHETiHIlMTHETAliM 
ZPH-ZPCGd  3»kHTCFl  I 1 6S  I M T FET0H(  d tT HET  A(  ID 
IFINLNITS.EG.D  PElLPk 

C 

C SPCONO  UNI T 

c 

IFISFLAGI JI.EO.l  I GCtC  671 
SINGLE  mXLE  trailer 


hSG>FML1P(  3.  D**2 

CALL  WHEEL2  1 EFF RAO , HA .HO. HE.HF IH( 2. 1) , 1H| J.  D . 

» 3,LULT,LUN6.0X.CZ,AL(hA(J.  t I.  RWLIMII .11 .RSQ.XPH* 

» XPal  3.D  .ZPH,ZP44>.DI 
XPBC  liDXPWl  3.11 
ZP6C13loZPMl3,D 
A-ATN21  ZPBCl  3I-ZFH.XCBL13I-KPHI 
THETA(2i  «A>T4LIM43,  D 

XPCG12I>XPH4RhTCH1  2i«CCSl  THEf  0Hl2  3»1iHETAl  2 D 
ZPCG  (2l>ZPH»KHTCH12MSiMT3FTJH(2l»THETA42ll 
TriLCuT.GE.l HHlT Ei6UH«.6f6A  XPH.2PH. XPMi i. D .ZPMi 3.  D . 
* ALPHA!  3,  D. XPBC  131. ZffdClii  . A, THET A4 2 1 .XPC6C2 A.iPCC! 2 > 

6So  PURHATI7H  NrjVEA3.  llFi0.3l 
RETURN 
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vCL^J^^  II 

1.1  STING  oP  I'flUGK.irt  GdS73e 


. AXuw  IrAiLcR  ” fcST  IF  CN  F^^JNT  •<hfPL  LiNLV 

L 

o7«) 

call  .<hEcL2  ( EFFRAC,hA.HC,hL.hF,Ht(,H2,lh42«lMH(  3,  II, 

•’  i.LULT.LUNo  ,CX  .CZ.  ALPFAO,  1 i , RWL  1M4  3 • i ) , RSO,  XPH« 

♦ 3,  1 I ,ZPH,ZPwl  i.  in 

m=aTN2  (ZPW(3,l»-ZPh,APW<3,  ll-XPhl 
r=A-  InLi  l*(3,  1 1 

XPmI  j,,:  I =XPi«  I 3,  1 l-ekiCTh(3n  .QS  IbALMOtJi  »T  » 

ZPai3.^nZPMti,l  l-Bli|0Th4  il*SIN(  EALHUI  31  »T  I 

call  WhkEL3  ( ELE«hA,4«0,HE,EF«HX.iH(i«2A,3«LiiUTtLJN6, 

» XPi«4  3.<:)  .ZPm4  3,2nZFPCF4i.Zn 
IFIELE.LE.J. I GCTC  6V4 

I, 

C trailed  bcGlt  CN  F»\bNT  WhEH.  CNLY 
Nk(3  1=1 

oETA  (3  nbALMU  I 3 I 

xPbL  <31=  *Pf*(  3 , II  - .S^BNlDTHO  ^•CC:X  EALMUM  ItTI 
ZPbC  U l = ZP«4  3 , U -.5  •£«  !CTH|  J)*S  IN4eALHU4  3>>n 
TrtElAl2l=T 

XPCUUI  sxPH^KhTCK  Z I ♦CC5(T  FETBHTZI  *1 1 
ZPC04  2»*ZPH*«HTCH(  2 ••S!N4TFcT^H(2nTI 

IFILCJT  .GE.  lOl  WRlT?A4.JN*.coe*  YPH,/.PM*  XPta  4 3,  I F ♦/ PW  ( 3,  )» , 

» ALPH«t  3 . tnxPbCI  31  , 2>BC;3;  ,A,T,XFCG4  2F,ZPCG4  a1,NK4  31 
bbo  cuRM4T(7H  MnVEAAnifJu.  j,*I?I 

^ETJRN 

c 

C tkaILER  PCCiE  NCT  cN  FFCNT  hhEEL  CNLY  - TEST  IF  ON  REAR  XMEEL  ONLY 

C 

bRM  RSCsRWUMl  3,  Zl**2 

CALL  >4hEEL2  1 E FF  R AO  ,FiA,  )-C . F c,  HF , HX.HZ,  Ih4  2»  1 1 , IH 43, 2 l» 

» 3.LaLT,LbN6,CX,CZ.A  IPFA4  3,2I  ,R>«11M4  3»2>,RS0«XPH, 

^ aPm  ( i,  2 I « ZPH  , 2 Pm  ( 3 , 2 n 

A>aTN2(  ZPkl  3,  2t>ZfH«XFM4  3,2  l-XPHI 
T>A- TMLl PI  3,^1 

XPMI  3,1I>XPM|  JrZnUR  IOTN3)*COS(eALNC<3nTI 
ZPnI  3,1)>2Pm(3,2  nBAiJ0TniM$lNI6ALMCi3l»TI 
CALL  WHEELS  I ELE ,HA« hO,  FE, FF, HX , 1H(3 , It , 3,L0UT, LUN*f 
» XPWi3.il  ,ZPWI3,1  I, ZfRCf  (a, ill 
IFiELE.LE.i.  I GCTC  Idd 

TKAlLEH  BUGIE  CN  REAM  mFEEN  ONLY 

NMl  ila2 

beta (3 I«BALMDI 31 

XPBCiJIaxPWI b,2l  *.5 ABWIGTHI il»CCS4 BALNCI 3) a7 I 
ZPBCOOZPWI  3,^1  t.S  •tfHl0TH4  3I*SIN4  eALNCt3i»7l 
THETAI2I»T 

XPLGl2>>XPH»RHTCF4x  IPCCSI T FET0H< 21 aT A 
ZPCCC2laZPHAWMTCF(  2 I4S  IN  I T FETtlH  4 2i  *11 

<FILCUT.CE. 101  MRlTEilUAAtTUI  XPH,2PH,  XPIN  3,  21  tZPWl  3,  21,  ) 

* ALPMA13,2l,XPBCiil  ,2CBCi3l,A,T,XPCCi2l«2PC6l2l|NWt3l 
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for* 


tN-<^j!>b,  vbLUf'r  II  PAlit  A-36 

lISHNo  UF  ►'FUGHAM  Ge^/oti 


71o  FjKMAT(7F  M JV E Aa t i 1 f iB .3, 2 1 3 » 
kETij  fn 

c 

C IRAILEF  eUGIE  CN  aCTH  *iH6ELS  - SEARCH  CN  8QGIE  ANGLE 
L UNUL  UGTM  wHEELj  ARE  CN  Fwe  FRQULc  TC  WITHIN  TOLERANCE 

G 

■’2«  lF(AbS(cLE».LE..ll  CCTC  8i<»e 

hC2*  •5*o«ICTHij  I 
bETA(3»=bALM0( 3i 

IP(LCUT.ut.*  n WRIT  EAL'JNfe, 721*  EL  E,  8C2.  bET  A(3  » 

7<;l  rURMArian  HJV  EA5  A , 3 PI  G .3 » 

7^5  r)ELTe=ATN2<-ELE«eQ2* 

dETAOI  =dETA13*«CELT8 
)f2  = ELL{J>-au2*CCS<eElA(3»»> 

Z2  »-REFHT  1 *EFf  RAC*  3 *--bC2*SIM  8ET  AI  3»-» 

AH2SG=X**X2»22*'Z  2 
FHx»S0RT(KH2SGI 
ThET2=ATN2;  22  ,X2  » 

IF(TPET2.GT.3.J  THET2»THET  <-6,2  8 3l85j 

CALL  WHEEL2  I E FF  RAO.  *iA,  H0«  HE*  HF  .HX  ,H2  # IHU  • 1 1 1 IHO,  2 > t 

♦ 3 ,LuL'T,LUN6»CX,C2.  ALFhA(3*£**RH2*RH*:SO.X(>H« 

» XPta( 3.21 .2PH,2Pwl3. 2*1 

A*AIN2  (<.PW(  3 ,2»-2FH  ,XPW  ( i,  2 > -XPH  » 

IFiA.GT.il.l  A3A»6. 2 311853 
THETAI 2*  »A-ThET2 

XPW(  3.  II  >XPm(  3*2  1 *B*iICTH<  3)*C0SlTHETA<xl  »BETAi  3)  I 
2PW<  3.1)  <2PW(3.2)>BhlOTH(3l*SINlTHETAl2l«BETA:Al  I 
CALL  >iHEEL3  1 ELE  .HA  ,HC,  HE  , Hf,  HX  , IH<  i,  1 *,  3 .LOOT  ,LUN6  , 

♦ xPlt(  i.  1 I ,ZPH(  3*1  1*2  PRCFi  3.  1)1 

IF<  LCur.CE.lD  mK1TE<LUN6,  7511  CELTB*  BETaUI  .XJtZZ.RHZSO  . 

♦ RH2.  IHET2.  XPNt  3.2l.20Wl3,2  l*A*THETA12I.XPwntll  tZPWl  3*11  *ELE 
751  FOKHATOH  HOVE  AS  E*  7Fji*.3/SX*  7FU  .i) 

IFUeSi  ElEI.GT..  II  GCTC  725 

BOTH  WHEELS  CN  HUB  PROFILE  TC  WiTHiN  .1  INCH 

CALL  WHLELl  ( ALPHA!  3«  1 >*HArHL*HE.  IHl  3 *il  • 3*0X *02  , 

♦ XPlil  3*1*  *ZPW(  3*1  )l 
Nwt  3 )•«* 

XPbCO*>  .5*1  XPW4  3*1  *«1iPKi3*2l ) 

2PBC43*«.5«<2Prt(3*l »«2PWI3*21* 

XPCul 2 I >XPH*R  HTC  H4  2I«CCS4THET0H( 2 l*r HETAI 2 * * 
2PCC42I>2PH»RHTCH2  I A$1N4THETi)M  2*  HETA  42  * » 

XTEMf>XPw4  3*1 I'XEta!  i«2* 

2TENF>2PH43*1*>2PW(  3«2* 

BETm<3I«aTN2I 2TEPP*  XTLPFI 

IFILCUT.CE.IB)  HRlTEiLUN6*ail)  XPCC (^ * *{ PCCI2 1 .THET A (2  I « 

♦ APBCt3  )»2PBC(3)*4XPIi4j*3I*2PWI3  *ji,ALPHA4  3*  J*  » 

» J>1*2I •XPH*ZPH*NaI 3* 

Bll  F0kMAT(7H  MOV  E A6  ,5F  U.3/Xf  aF  10.  3 * * 2F10.3  * 13 1 
RETURN 
ENO 
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rir'r*.  f-oooof  ooor  or<^rof> 


h-^.)So,  VCLU^6  il  PAGE  A-37 

L!:>Tlr,G  JF  Pt-JOFAf*  CrtS7dH 


L 

iUHkCJTlNE  E L c V A T < N E CL . XL , U EV  I 

u 

t 

CUNMCN  «LPHA(5,2», 

*•  dALMCI  3)  f BAlMUI  J 1 . 

sETA  I3».  BETAP(  31  .UN  (4t  . Ef  AKEK  iS»2t  *31  (2,^)«BM10TH{  3t  * 
*’  CUdA  (3  ) ,CuSB(  3 ) .CC^Gt3  .2  ) .CGf  Xl^A,  CGFZI  21  , 

cGx(  c)  .CGZ  (2  > .CG  xrt  2)  )«  CTF(it2t » 

*■  lFFP.  ADJ5  ) .ELL(5»  , 

*■  FHX,  FhZ  tFN(  J ,2  » » 

•>  HAl  5 . j.'  .Hbi  5 ,9*  .HC4  s.9i  ,HCI5.9t  «hEl5,9>»HF45e9>  , 

♦ HFLl5»'^t 

*•  Ga/<MA(3,2I. 

«■  lalS.ZI  , 1P(5.2  I.  iH<  5^21  . 

LLiUT.LuNc, 

♦ NdGGF.  NUNI  T:>,  NG(  5if.XN2(  5)  • 
nA(9t.LFL{9>,LiX<  Ul  ,CZ( 'ii>  > 

«•  ^'M(3  ),PCjt.EKRi  5,2  ) , PX43  4 , PX  PCG4  3 F. P2 1 j »,  PZPCG4  i3  , 

» RBCl  ,RBC2.RK(3r2)« 

» SCALEIol  .SFLAGi  5F.S1AA(  3,2>.S1N£(31»STEP, 

♦ thETBI ,THETB2  , 

«■  X(  Si  .XPbCiS  t , XPW4S»  2 A« 

♦ ZJSi  .ZPHCISI  ,ZPPCF(5<2i.ZPW<5,2» 

L 

INTEGER  SfLAG 

V. 

OlNEXSiUN  XL(S),ELEVtSI«XLL(Sl 

L 

L XL11)=  X-PCSITICN  CF  CC  GF  UNIT  1 
XL(2I»  Z-PCSITION  uF  CC  Of  UN  iT  1 

XL(3I-  PTTCH  angle  UF  LNlI  I hhT  CNGUXC  CQCPOINmJES 

XLUIs  PtTCh  angle  CF  FCRhARC  flOST  UOCiE 

ASSEHBLr  ON  UNil  1 WRT  VEFICLE  CCCRCINATES 
XL(S>>  PITCH  ANGLE  CF  SECCAC  EGGIE 

ASSEMBLY  UN  GNlT  1 BRT  VEMaE  CCCRCINATES 

ELEV(n>  DISTANCE  OF  CC  FRUM  LAST  EQUILIBRIUM 
PCSLTICN  MINUS  STEP 
cLEVI2l>  ELEVmTICN  CF  FIRST  MFcEL  MRT 
ITS  HUB  PROFILE 

ELEV(3I«  elevation  OF  SECCRC  MhEEL  URT 
ITS  HUB  profile 

cLEVU»>  ELEVATION  GF  ThlRC  hFEEL  (WHEN  fRESENTi  URT 
ITS  HUB  PROFILE 

LLEViSt*  ELEVATION  UF  FOURIF  WHEEL  (MFEN  PRESENT!  URT 
I IS  HUB  profile 


uG  le  L<1.NEQL 
16  XLLlLI>XLiLi 

XSQ>  STEP*STEP«i XLLiZI-PZPCCi II (••Z 
F^LEV  <1»>XLL(  ll-PXPCCiii-SORT(A8S(XSQiF 
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r»  r.  r*  o n r 


K-23b8#  VCLUKE  li 
LISTING  GF  PHJGhAH  ueS7b8 


PAGE  A-30 


thET=<LL 1 3 ) 

C=CO  SI  THtTdl  ♦ThETI 
XPBCII»=XLH 
S = SI  M THET91 ♦TMtTI 
L PBC (1 »=  XLLI ^ ‘i 
G=Ca  S(  THtT02*ThET» 

XPBCI2)-XLLi il*KBCi*C 
S = S1M  ThET92^TMET: 

ZP8C(2I=XLL(  2 •♦«EC2*S 

1F(  LCJT.  GE.l  1 t WRIT  EILUNo,2i)  US.XPBCiU* 
o ZPdCn).XPaCi2).ZPBCA2).EXLLl  II.I=1»NECLI 
21  FOKMAT  (8H  EL  cVAT  1.  l.lfja.3) 

IF(SFLAG(lt.EO.I.A^Ci^W(i*-.EO.0»  COFO  3.; 

first  AbSEHULr  IS  UN  SlXGLfi  WHcEL 

IFISFLAGI  li.EOjl  ./NC.NMiil.NE.il  GOTO  2i 

CmLL  WHEEL3  I EL  E V(  2 t AliA  .hO. FE,  FF, HX>  IHU.  !»•  1*  LOUT ,LUN6 » 

♦ XPBCll  ) • ZPdC(  1 > . ZfRCETl  .U  I 
XPWI  l,l»=XPaC(l» 

ZPRI  l.i  isZPBCl 1 I 
GCTU  52 

^3  IFINnl  11  .EO.^)  GCTC  29 

XPW«  J.IJ  -XPBCin 
ZPWI i. I »*ZPBC( I > 

CmLL  «HEEL3  ( ELEV(2MFA,HO«Ffc',r‘f  »HXrlH41»l  )»1»LOi<T, 

♦ LCN6*XPW(1*I  ),iPkil  til.ZPPCFUtliF 
bETAIlFxbALMUl  !• 

aPBCII  l>XPW(  U1  l-.5*ewlCTH(il*CCSTeALNUJ  l>FTHETI 
ZPBC  (1  l>ZPH(i  .11  *.!>  •BMlCThUI^SiNieALHUtnATHETI 

GOTO  5iS 

27  XPW( 1.2ixXPBC(ii 

ZPWI  1.2lxZPBC(l  I 

CALL  WHEcLi  ( ELE V< 2 ) «KA. HO. FE« Hf .HX, iHTl  »2l 1 1 tLOUT . 

» LUN6.XPWU  ,2  t ,ZPW4  l.^l»ZPMOf41r9M 
bETAtllxbALMOIll 

XPBCdixxPbi  l,2t  ».5«eNtCTH<l>*CCSl8ALNO(lftTHETI 
xPBC  1 1 1 *ZPM1  1 . 2 I ».3  *(1141  CTHI  1 1 ^S  IM£ALM0(  1 IFTHET  t 
GOTO  5B 

F»RST  ASScPbLY  IS  BCGI E 

id  KWl*.5*BtalDTh(ll 

C«COSi  XLL(<.I»THE7» 

XPWt  l.L)«XPBCii  MRUKC 
S«SlNi XLLlLt  ^THETi 
aPWI  l.ll>ZPBC4  1>ARWa4S 

CALL  MHEEL3  ( £LEV( 2 IjHAf HO. FE* HF.MX. IHI i >• 1 .LOUT »LUM6 . 
» XPwI 1.11 tZPMll . 1 A.ZPROFllvill 
XPtal  1.2I«XPBC( ll-RM  1«C 
ZPMI 1.2t>ZPBC(l »-RMi4S 

CALL  MHEEL3  ( ELE  V(  3 l«liA»HO.FE*  Hf, HX*  (Hi  1 . 2J  • 1 .LOUT  «LUN6 » 
» XPMI  1.21  .ZPM<1.2  A,£PIICF41*2n 

lF4LCUT.CE.il  I WRlTECLUAfrrX»ll  C.S«4XPW4  1 « J-ly 

131 


PACE  A-a9 


IV- 2 35 d,  VCLU^e  li 
LTiTIi\G  liF  PPUGKAH  UbS7oB 


^ L liJtiZF^LiFl  IfJiiflhZ  = 1 tk  i 

•;l  FoHMAKdn  =LEvaT2,4JF,1*1.3/2  (3Fli<i3,lJM 

5c  T rj  SfLAG(<; ) . EQ.l  . ANC..Ah(  2J  .EC.«) » GOTC70 

u 

G SELONC  mSSEMBLY  IS  GN  SINCLE  V^HEEL 

1F(SFLAG( 21 .EG.l ./NC«NM{2I .NE.3)  GOTO  53 

GALL  .4HEEL3  I cLEV(  N EQL  I .hA  .FO.hE.hf,  FX,  Ih12,  II,  2»LaUT,LUN6, 
«-  XPBC(2I  . ZPaCl2  ),2PRLFZ2,1I  > 

XPW( 2,  1»=XP6C«2) 

ZPtel  2.  n = ZPBC(  2 I 
GOTO  60 

oi  IF(Nh<  21  .Eg.  21  GCTC  53 

XPw( 2.11 =XPBC(2> 

ZP0( 2. 1 »»ZP8C( 2 1 

Call  2HEEL3  ( ELEVISECL)  .HA,HC,hE,HF,hX«IH12,ll,2,LOUT, 

«’  LLNb  .XPM(2  .1  I , ZFh<  2 .il.ZPRCF<2,  HI 
Bt:TA(2)-bALHU(2i 

XPUC(2t<xPM(2.1  >-.5*AWICTH(2)*CCS<EALHU4  2>  H£T  I 
ZPUC  (2  >-ZPW(2.1 ) - .5«ai.  lCTH(2l*SlNiaALNU(2>»THETI 
GOTO  60 

57  XHW( 2,2I»XP8C( 2» 

ZPmI  2.2  HZPBC12  ) 

CALL  AHEFL3  ( EL  LV ( N E CL  > .HA. HO,  HE,hf  , FX^  {H;  2,21 . 2»LCUT  , 

' .u^6.XPM12,2l  .ZPWI  2 .2t,ZPfiCf  (2.211 

oETa;2(»BALK0( 2» 

XPBC(2l  >XPi4(2.2l  *.5*eMlCrH<2l*CCS4  BALMOl  2 HTHETI 
ZPaC(2  I«ZPM(  2.21  *.5«aitlCTH4  2l*SIM  B ALMCi  2 HTHET I 
*>0  IFtLCUT.CE.llI  WAIT  EALUN2>,  611  ( ELEV I il  , I*  UNEQL I 
61  FOKHAT  t 8H  ELEVAT  3,5F2a.3) 

K‘-TgFN 

c 

C SECONC  mSSEHBLY  dUPIE 

c 

70  NH1»NE0L-1 

Rf2>.5aBWIOTH(2 I 
C>COS(XLLiNECLI»ThETI 
XPii(2tll-XPbC(  2)  «AW2«C 
S«S1AULL(NEULI  »THETI 
ZPW12.1I -2eeC12l »RW2«S 
NE(3LP1«NE6L*1 

Co".  WHEEL3  (tLEV<NEia.Hll,HA,HC,»iE,MF,HX,lHf2,ll,20 
» ■ .tUN6,X>Wl2.1I.ZCW(2,l  l,ZPRCFf2rin 

X'<4l  2,2l«XPt)C(2l  -AW24C 
ZPw(2.2t«ZPBC12t*RW2«S 

CALL  WHEEL!  ( ELEVlNEOL  I . HA  ,FO,HE,HFrFX«  1H12,2I  •Z.LOJT  .LUNA, 
4^  XPWl  3,21  .ZP^W(2,2l.2FPCFi2,2l  I 

IFlLCUT.Gc.lH  WRlTElLUN6.6il  1 ELEV  1 1 1«  1 >i,NEQL I 
IFlLCUT.GE.in  WRlTElLUAA.flll  C,  S.l  XPWl  2»  Jl, 

» ZPWI2.J>  .ZPR3F(2,JF.  Jht,2,J  l.2«l«2l 
dl  FOPMAT18H  FLEVATA,2FiC23/21 3F18.3,I3>I 

• RETURN 

END 
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ocr  r-oo  or~or'  (-nr' 


r'-<;u*58,  VCLUf»£  P 
LlSTlNu  Ur  PROGRAM  l]ES7ot 


PAGE  A'orf 


L 

L 

C 


SUBftCJTiNE  WHEElI  i AKGL  E » H A ,Hu,  h E,  IHUB.K  ,0X,0Z  ,XM  1 


DIMENSICJN  HA(5.'<I.HC  iS«4l-,h£  (5.91, bXiKI  ,02(1  mi 


C S'JoKUUTlNb  TQ  FINC  ANGLE  LAGEi^  WHEEL  AT  «W,ZW» 
C HF  SLiHENSi::N  K ON  FU0  FRCFILE  ELEMENT  LHUE 

u 

1F(HA(  K,  lHUUl.EC.i.:l  GCTU  Hi 

C 

L HUU  FWUFILE  ELEMENT  A LiNE 
o 

ANGL  EsATN2(H0iK,  IHU  EA« -HE  i K , iHU  6 >.i 
IFlMESi  AKGLEI  .LE..ii)IA  ANGL  E^i.. 

WE TURN 

C 

C HUB  FPOFILE  ELEMENT  AN  AMC 


lAj  A=ATN2UW-Q2(  lMUei»XW-CX<  IHUBi  I 
lP<AbS4  A).LE..ai* 
angle*  A-  l.S7U79oi 
RETURN 
END 


SLBRCUTINE  WHEcL2  4 EfifRAOt HAfhO^ME^HFrHX* 

» HZ  « I HUB*  lh2  t K,  LCU.  IWN6.CX  *0Z*  PSLP2*R12,  RI2S0*  XP  1 »XP2*ZP  1 ,Z  R2 1 
U1 ME  NS  ION  EFFRAC(S) ,teA4  5« 9 t*HCI5»9i»H£(5 •9)*hF4b»9l  ^HX 
» ( 5.1 Ei .HZ(5 ,lo) iCXi  Idl *CZ( imi 

SUbROuriNE  TO  LOCATE  SECONC  WHEEL  GIVEN  CNE 
WHEEL  AT  XP1«ZP1 

OC  urn  4*1.1HUB 

DS0«(HX(K.I)-XP1  MA24iH24K  *11-2  Fli*M2 

lF4LCUT.EQ.il t nR IT E« lUf6 ,961  I tCSC«R12S0»hX4 K, II , HZ( K* II 
96  FURMiTIbH  WHEELSB*  li<«4Flm«JI 

IFIGSO  .LE.  Ki2SC)  G6T0  110 
lam  CONTINUE 

SECOND  AXLE  CN  HUB  fRCFlLE  ELEMENT  IHUB 

1H2* IHUb 
GOTO  115 
lim  !M2*I-1 

lF(Ih2.LT.ll  IH2*l 
115  U-SURTIOSOI 

IF1HA1K.1H2I  .EC.  l.A  GCTQ  16C 

ELEMENT  (K.lhZI  IS  / LINE  | 
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Jt)3  . VuLU^'E  I I 
USTINo  liF  PPOURiJM  0GS78fc 


PAtiE  A-Al 


b = -HC(K,  in2)  /he( K. 

T = -HF(  N,  !H6  ) / ht(  K,  IH2  • 

A=S**2*’l  . 

d=S*(T-ZP1  )-XPl 

v,=  (T-ZPl  I **2  + XPl  ••2-f'U  S£ 

tiUA  = e/ A 

lOA=C/A 

IF(-eOA  .Gt.  0.»  Xl*-*flQA*SCRT  ( eLA*eQA-COMl 
IF:-eOA  .LT.  d.\  XI  =«60A-SCBT<  eCA»eOA-CQAI 
X2=CCA/X1 
Zi  = S*Xl>T 
22=S*X2  ♦! 

if:  X 1 .uT.  XPH  xf2=x2 

IF<X^  .CjT.  XPII  XP2>X1 

IF(X1  .bT.  XPl  .CR.  li  .CT.  XFl)  GCTC  15B 
lrl2Pl  = IH2^1 

lF(Xi.LT.HX(K,  t.C<>.Xi  .GT.HXi  K,lh2Pln  XP2*X2 
I F4  X2.LT  .HX(  K,  1H2»  .CP-.X^.GT.hXlK,  IF2P1I » XP2»Xl 
TF<  Xl.LT.HXi  K.lH2I.Ci>.X2.LT.HXlK,Ih2)-^  GOTO  150 
1F(X1.GT  .HX(K,1H2P11  ,CF.X2.GT.HX(K.»lH2Pin  GOTO  150 
IF(21  .GF.  Z2>  XF2*XI 
IF<22  .GT.  ZIJ  XF2=X.2 
133  2P2»<*XP2*T 

‘^5LP2»ATN2:  Hn(K,  Ih2  1 .-HE  1 K , |h2  » » 

!F<AESlPSLP2t  .LE.  .^1  » PSLP2»0. 

lFILCJT.EO.il  I tiPIT  E4LU^o•  1561  IH2  , C*  S«  T , A,  B.C,  BOA»COA  » 
» X1.X..Z1  .Z2tXP2.ZP2.fSLF2 

156  FCPNAriaHdtoHEELbl*  I3«7F10.3/8Flto.4l 
RETUf-N 

C 

C CLEMENT  (K,Ih2l  JS  Ak  AFC 

L 

160  CHQRCaSOKTl (HXIK .lh24ii-HX (K , 1 h 2 1 1••2 MHZ  (KrtHZ^l  I 
♦ -hZ(  X, 

Aa2.*ASIN(  .5"'.HCPD/EfFPA0:Kl  I 
BaArN2(HZ<K,lH2l  -CZnF2),HX<K  ,l»'2i-OX(IH2M 
lFlAeS<BI  .LE.  ..II 

IFIB  .LE.  -1.5707963467)  6 *8 »6. 2^31 853x7 

AHGHaB 

AL0W«B-A 

00  180  T*lt6 

AHlCa.5*(AHCH»AL CM) 

HXM«CX(1H2>  *>EFFRACt  F6*CCS1  AHIO) 

HZMaCZl  IHZI^EFFRAGI  K6*S  INX  AMiO) 

RM2*<HXM-XP1 ) **2  ♦IHZR-ZPi 
IF(RM2  .LE.  R12&CI  GCTO  178 
AHGH>AMI0 
GOTO  180 

170  ' TF(RM2  .EO.  R12SCF  GETC  190 

ALOH«AMiO 
130  LONTINUE 

190  XP2aHXM 

Z P2»FZM 

KKANC>ATN2(ZP2-GZ( 1F2I,XP2-0XIIH2) I 
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-(-2J58,  VQLUf'S  II  PAGE  A-<*2 

L’SIING  13F  PhJGKAM  03S788 


IF( AESiKKANGI  .LE.  .41t  PK^NGs^. 

PSLP2  = kk  ANG-1 .57  279AJ2t)7 
19t)  tUNTlNUt 

IFdCUT.EtJ.llI  wR  IT  E aUN6,  1961  IH2  , C , CHORO«A«B  • 

«■  XP2,  2P*;  ,PSLP2 

1V6  FOKHAT  t8Hi)MHEcLS2«ii«7F  1^.31 

RETURN 
END 

L 

L 

SUBRCU71NE  HHEEL3  ( EtEV  .hA.hC,HE«hFr>*X,  IH,K,LOUT  » 

♦ LUN&,XP,2P, iPRQF 1 

01  HE  AS  ION  MA(5.9),HCA5,9i . FEl 5, 9A,  HF( 5«9 A* HXl  S , 10 1 

iUBRCUTINE  TO  FINC  ELEVAUQN  CF  WHEEL  CENTER 
AT  XP.ZP.WRT  hue  profile 

00  it  1-1.10 

IFIHXIK, I) .GT.XPI  GCTC  30 
4 0 CONTINUE 

IH»9 
GOTO  <.0 
30 

IFilh.LT.l)  IH»1 

FIND  POINT  ON  PROFILE 

F0  IF(HA(K,lHl.EC.l<i  GCTO  60 

PROFILE  ELEMENT  A LINE 

S«>HC{K, Ihl/HEIK.IHI 
T*-HFI  K,  IHI/HElK.lHI 
ZPROF«S*XP«'T 

IFILCJT.GE.li)  WRITEALUA6i56l  IH,S»T,£PR0F 
36  F0RMAT(9H  MHEEL3 /I • U. 3F1  0 .3  ) 

GOTO  80 

profile  element  an  arc 

00  H>.5  *HEI  K.IH) 

C>)iP*XP<»HOU»  IHt  6XP»ltFIK.  IHI 

o«B*e-c 

lF(-e.CE.0.)  Z1>-B^SCRT 10) 

IFi-e.LT.0.)  Zl--BiSC«T<OI 
Z2»C/Z1 

IFUl.GE.Z^)  ZPRCF>Zt 
1FIZ1.lt. Z2I  ZPRCF«Za 

IF(LCJT.GE.ll)  HRITEILJN6.71 ) IH.&.C.DtZl  . 

* Z2.ZFR0F 

71  FURMAT(9H  WHEEL3/2* i4«oFi0.3l 

C 

c elevation 
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i 


VCLJ^E  11 

LlillNr,  UF  PKOGKAM  aBS7bE 

i 


oj  =LcV  *ZP-£PKOF 

lF;LrUT.uk.l  i I nhiTEALUNb.tibl  XFfZP»K,Ih, 
cLEV.ZPROF 

bt>  FURM(iri>7H  „HEcLi/3.2Elia.i.213.2fl0.3> 

HETUbN 
bNO 


I, 

SoBKCUTINE  WINV( A,N ,C.L ,M1 
UISCnsIuN  A(  il.Lll  >«/(I  n 

c Matrix  enversicn  with  pivoting 

u 

SEAkCF  for  LARGEST  ELEMENT 

C 

D = l .k; 

NK»-  h 

on  dJ  K* l , N 

N^*NK^.^ 

L(  Kl  sK 
M ( «. » jK 
^^3^K  *’K 

ttIGA=A (KX* 

DU  2 L J-X«N 
I Z»N*( J-l» 
no  23  I=K,N 
IJ*I  I«-l 

1.)  IF  ( A8b(  bIGAl-ABSi  A(  Ijm  15»<:e,20 

IS  BIGA*A(IJ) 

L( Kl »! 

M (Kl -J 

2^  CUNTINUE 

C 

t INTERCHANGE  KCWS 

C 

JsL( Kl 

1F4J-KI  33,35,25 
25  Kl-K-N 

no  30  1-1, N 
K 1«K  I^N 
HQLO»A(Kll 
J»«KI-K»J 
A(Ki  l>A(  Jll 
3'*  A(jH»MaLD 

c 

L INTERCHANGE  CCLUPNS 

c 

35'  laMlKI 

I<:(I-KI  AS. <,5,33 
33  JP»N*(I-ll 

UU  Ae  J«1,N 
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■u  ,1 

L 

u 

L 

‘.S 

A o 

0 

SP 

bb 

V. 

c 


b d 
c2 

o 5 


7^; 

75 


bfa) 

C 

C 


L 


i 


JK  = NK*  J 
J ! *J  P*- J 
MULU=-AI  JK> 

A ( JK )- A( Jl) 

A<  Jl  l=HUL0 

DIVIDE  COLUMN  BY  MNUS  PIVOT  (VALLE  CF  PIVOI  ELEMENT 
i S CONTAINEC  IN  EJCaI 

^FIBIGAI  Ad»<«6»Ao 

KETUPN 

UQ  55  1=1, N 

! F( I-KI  bJ. 55*52 

I KsNK^  T 

AdKliiAl  INI  /(-dlCAl 
CUNT INUE 

PEOUCE  MATRIX 

U'J  b5  1=  l.N 
IK=NK»T 
Hl!L0  = A ( 1 K » 

IJ=I  ‘N 
OU  6 5 J=1,N 
I J=I J»N 

IF(!«K)  6k), 65,62 
1F(J-KI  62,65,62 
NJa!  J-I+K 

A( IJ isHOLO* A(KJ>  »A(  liA 
CUNT  INUE 

DIVIDE  ROW  BY  FIVCT 

K J«K-N 
DO  75  J = l,N 
K J«K  J»N 

IF(J-KI  70,75,73 
AIKJ  )>A1  KJI/BIGA 
CONTINUE 

PRODUCT  OF  PIVOTS 
U»L*P1GA 


REPLACE  PIVCT  bY  RECIPRICAL 

AIKK  M1.2/BIGA 
CONTINUE 

FINAL  ROW  ANC  COLUMN  INTERCHANGE 


KaN 

Ka(K-I » 
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VbLU**:  li  PA&£  A-A5 

LlbJINtj  'if  P(<JGndM  ces7ua 


US'  I =L(  Kl 

IF  ( !-K)  UJ  .12J  .1  1^8 
I.M  JC=N*(N-il 
JK  = N*II-1» 

.DC  1 iJ  J=1,N 
JKsJCfJ 
HaLO:AiJK> 

J I s j h«'  J 
A ( JK  )s-A(  JI  I 
1 l.>  ’ A ( JI  •=HuLO 
1 2J-  J»M(  Kt 

125  M»K-tN 

un  ij.i  ’ = i,N 
M=KI*’N 
DOLO-A(KTi 
Ji=K  I-K* J 
Ai  Kl  |3-A  ( JI  I 
lib  m(  is  HCLC 

GU  TC  u<; 

15J  i<ETUFN 

ENO 


FUNCTIUN  4rN2{X,y»- 
A T Ni  s J • 

1P<X  .NF.V)..0K.Y.NE.^«8  ATN2>ATAN2(X,y> 

RETURN 

CNC 


C 

c 

C SOBRCbllNE  ECSCL 

V, 

C »**•***••••*••«••»•««•  t**************^************************ 

I.  5UBKCUT1NE  Ekl>C;L  - FRCP  P.J.C.  FCMELL  -A  FORTRAN  SUBROUTINE 

C FOR  SGLVTNC  NUNLIXCAM  ALGEBRAIC  cOUATIONS 

IN  NUMERICAL  METHOCS  FCR  NONLINEAR  ALGEBRAIC  EQUmTIONS 

C EO:  PHILIP  RABINCUITZ,  PUEl  GORDON  C BREACH,  197# 

■ SUBnCUTiNE  EOSOL  < K«X,  F ,AJ  INV.OSTEP, CNAX, ACC«NAXFUN, 

1 W,MAXC.LUNA,  IPRIM,CAtiFUNA 

DIME  AS  I ON  KIN)  ,F(M  , AA  INV  ( N,Nl  1 1 0>«  L(  101,  MI  IB  I 

EXTERNAL  CALFUN 

C SET  VARIOUS  PARAMETERS 

HAXC  *0 

C 'MAXC  CCUNTS  THE  NUR8EP  OF  CALLS  CF  CALFUN 

NTsN  H, 

N^ESTsNT 

C 'NT*  ANC  'NTEST*  CALSE  AN  ERROR  RETURN  If  F(XI  OOES 

C NOT  CECREASE 

DTEST«FLOAT(N*N»-a.5 

C 'OTEST*  iS  USED  TC  FAiNTAlN  LINEAR  INCEPENOENCE 
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W X = N *■<4 
Ne  ai'iXt’N 
NWsNF^'N 
W ♦■N 

NUC  = P><  *l» 

NO  = NCC  ♦N 

L these  PmkAMETEPS  SEfASATE  TEE  WCPKiNG  SPALE 

L MflKAT  «« 

FHiu=<J. 

L USUALLT  'FMIN'IS  THE  LEAST  CALCULATEC  VALUE  OF  F<X», 

C AMC  The  licaT  X IS  I^  MihX»ll  TC  HINX^NE 

UU«  J . 

L USUALLY  00  IS  THE  StUAKE  CF  THt  CUBHENT  STEP  LENGTH 

uSS=LSTEH*OSTEP 
DK^O-AX^CNAX 
TMHsi,,  •CM 
IS»5 

C MS*  CUNTkOlS  a 'GC  TC*  STATEMENT  FOLLOWING  A CALL  OF 

L calfun 

riNc=i . 

L 'TINL*  is  used  in  THE  CHITEHICN  TC  INCREASE  THE  STEP 

s,  LENGTH 

L STAKT  a new  Page  FCF  printing 

IFII  FKINTI  I , I , dS 
S5  KHIIEILur.  iSi 

db  FORMAT ( I hi S 

t CmcL  The  SUShGuI  INE  I on 

1 MAAc<MAXC»l 

CALL  CALFUN  I N.X.FI 
L TcST  FOH  CCNVt«C£NCE 

FSO«v. 

UU  2 i>lfN 
FSC*FS0»FI II  wFI  I » 

2 CONTINUE 

» F C FSQ-ACCI  3,  i,  A 

C PHOVlOk  PRINTING  CF  f4NAL  SCLuT  ION  IF  REQUESTED 

i LONTTNUE 

IF  i |PRINnS»5*o 

6 WRI  TF(  LUN6«7  IMAXC 

7 FORMAT  (///ShA  EtSClA/ 

1 9x,i<;HrHE  final  coluKon  calculated  by  eqsol 

2 8HRECU1RE0*  I5«2JF  CAtiS  CF  CALFON.ANC  IS* 
mR1TE(LUN6.8)  iI,XI  |l•F^I»I-lrN» 

b FORMAT  I F/AA.lHl,7X,AHXnitUX,  AHFIl*//l  lSt2E17.lll 

wRlTEaUNb»9)  FSC 

9 FORMAT  l/3X»2lHThE  SMM  CF  SQUARES  IS»E17.*1 

5 WETuRN 

C TEST  FOR  cwROM  RETUFfe  BECAUSE  FU»  OCES  NOT  DECREASE,^ 

A GO  rc  I U»U  *11.  lA* 

IFIf  SU-FPINI  lS«2t»4l 
cu  IFIUC-USSI  12*  12. \1 

12  NTfcST«NTEST-l 

IFlNYESnii.U.ll 
tL  WRI  TEI  LUNo.  16  I NT 
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!o  --UWMtfTl  ///3H  ^EwSQL  :/5X  , jl  (-ErHOP  REIURN  FROM  EOSUL  BECAUSErlS, 

1 ‘.ThCfiLLj  OF  CfitFGS  fllLEC  TC  IMFFCVE  THE  kESICuAlSI 
W OL  1 3 I - i,  ,N 

NXi=N<^l 
MFI=NP*'I 
x(  i>  -•«(  Nxi  I 
PM)  -MiiNFll 
19  CQKTINUE 

t-SC=  PMJN 
GO  TC  3 

ekruf  RcTjrn  because  a kem  j>.coeian  is  UNSWCCESSFUL 
13  HK  IT  E ( LU  Nor  1 '}  > 
iV  CQRM  AT( ///3H%  £0  SOL  :/ 

1 5X«36HEHr<UK  RETURN  FFQN  CCSCL  BECAUSE  FlXt, 

2 i-^HFAlLEC  TO  OcCREASS  USING  A NEW  JmCQBIANI 
GO  TC  17 

:s  •'tTcS'^  = NT 

V,  TESI  WHFlHEK  ThfcRE  FiVE  BEEN  HAXFON  CALLS  OF 

L CALFLN 

il  IF(MAXFUN-MAXC>2 

2 1 xN  ITE:  LUN6 .2  3)  MAXC 

. » FORMAT! ///9HA  ECSCLU 

1 SX.ilHEKHUR  RETURN  FACH  ECSCL  BECAUSE 

2 loHThcRt  WAVE  BEEN  , 15.  liHCALL  S OF  cALFUN) 
tF)FS0-FMlN)3,i7,17 

‘'•^UV  lUE  Ch/,‘,TING  IF  KtCUESTfC 
a ! F ( ! P K I M • < c I 2 A . 2 5 

25  .«RI  T E ( LUN6 , 26)  MAXC 

*6  FORM ATi ///6HA  EGSCL)^ 

I SX.ohAT  The  , IS,2bHTH  CALL  CF  CAlFUN  WE  HAVE) 

WRITE)  cUNO.dX  l*X4ll.Fn)»I>l.N) 

/'RITt:  LUN6,9»FSG 
2 **  GO  TCi27f^dt49.67.32)4lS 

C STCrE  the  result  Of  THE  INITIAL  CALL  CF  CALFUN 

3i<  FMIN-FSO 

Ou  J I 1=  l.N 
NXl «NX  »! 

wiNx !)  >xn  I 

w)  NF  II  >F<  II 

3l  continue 

c Calculate  a new  jaccbian  affroximatiim 

>2  ic>w 

1S«3 

31  IC>IC»1 

K<ICI«X(  ICI»0STEF 
GU  TC  1 

29  X«IC 

UC  l»I.N 
NF|>  NF  H 

«l  Kl  •!  FI  II^nANF  I M/CSTEP  > 

NbKaN 
CUNT  INUE 
NXIC-NX*  It 
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nr.  nr  r-  r 


PA(f£ 


»<-^d5o. 

>.!  bTI  Nf, 


3!> 


^ 7 


j>o 


30 


At) 


3 V 


C 

<.5 

1 

i 

-} 


A* 


VuLUPS  IJ 

IjF  PFOGKAM  uQSVbt 


X(  1C  >=W(  NXIC  ) 
iF(  IC-N>  J3,3&,35 

CALCaATE  THE  INVERSE  GF  THE  JACCHiAN  ANL  Scl  THE 
UlKECTIGN  MATRIX 

K = I3 

OC  3t  !=1,N 
00  i7  J=  l.N 
X=K*  I 
NlXs  N0*K 
AJiNVd.  J)  3n(k) 
r(  NCKi  3k)  . 

LGNT  INUe 
NDCI >NOC  *I 
NOCK  1=U0CI  ♦■K 
HINOCKII >1. 

M(NOCll*l.*flCAT(N*l» 

continue 

CALL  HINVI  AOINV  , A.OA.L.  Pt 

STAkT  ITERATICN  cY  FREOICTING  THE  CESCENT  AND 

nehtcn  minima 

0S3k<  « 

ON  aft) . 

SP»^  . 

DC  3 V (3  i ,N 

*<  n 3«). 

f:  it  30. 

N'l 

DO  ah  ja  1 
NFJ3NF»J 

Xi  I ) >X(  I l-Mt  K l•Wi^F«i 

fUl  3f  (1»*AJ1NV(  1,JMN(NFJI 

X3XAA 

CONT  INUE 

OS>OS»R(  II*X(  It 

UN>uA»F( il*F< IF 

SPaSPAKt  II  -Ft  I I 

CONT  iNuE 

TEST  MHETHEk  A NEARBY  STATIONARY  POINT  IS 
PREOICTEC 

Ifl  FM1N3>-N|N-0PN«0S  I41»A1 

IF  SC  then  RETIjRR  CF  REVISE  JACCEIAN 

GO  TCIa3  .AitAAFfIS 

MMiTElLUNbfASI 

FURMATl  ///8HA  ECSCL  U 

SX*3JHEhRUK  return  f RLM  EGSlL  BECAUSE  A* 

•*AHNCAH0Y  STATIONARY  FulNT  OF  FlXI  IS  PREOICTEOF 

GO  TO  17 

NTEST30 

no  AO  I3l  iN 

NXI>NX»J 
M II  sWINAl  F 
CONT  INUE 
GO  TC  32 

TEST  WHETHch  TC  AFPLY  THE  FULL  FEnTON  CURRECTION 


141 


rt-’JSd.  VoLUf'c  11 
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PACE  A-4  9 


-1  1S=^ 

’ ^ I J N“  0C)^7»*»7»4ei 
h1  uC=^HAX110N,DSG» 

i^S=J  .25*ON 
T rNt  = l . 

f P(  QN-0iS)H9,  bd,  53 
I s = <* 

(ic  rc  do 

w laLCCLATE  The  LENuTI-  CF  the  STcEPEiT  DESCENT  STEP 

<•3  K >0 

tmll  i=j. 

OU  5 1 1=  l.N 

JU  5i  J=1 ,U 
AsK*  I 

lusUk^Nl K I ( J I 

> CTNTlrjue 

uhult=cmult 
5 1 CUNTINOE 

-HGL  TaOS/OMULT 
0S«0S*0H'JLT  •Df'UCT 

C TEST  whether  TC  USE  iHt  STEEPEST  DESCENT  DIRECT  lUN 

IF(uS-Gjl5i  f'3‘* 

C ’EST  WHETHER  THE  IMIUL  V/LUE  CF  CD  HAS  BEEN  SET 

S'«  IF(0Cl35j55,'j6 

3«.  r.?*,OS»l 

)j»OS/(URUcr  •CPULT  > 
oC  TC  41 

V.  SET  THE  multiplier  LE  THE  STEEPEST  DESCENT  OIRECTIDN 

56  ANHULTsO. 

DMUL  I«  JMULr*SC><T<CO/CS» 

GJ  TC  9d 

i,  INTERPOLATE  EETwEEN  TKt  STecPEST  DESCENT  AND  THE 

w NFhTCN  DIRECT ICNS 

53  SP»SF»JHLLT 

ANMULT-1  CO-Ob»/l ISP-OS  » ♦SCrT;  i SP-CC»**i H CN-UOl 
1 •(Ou-OS»A» 

JMUL TaOMuLT*!  l.-ANMCfeTI 

C CALCaATE  the  CHANxiE  IN  aANC  ITS  ANCLE  WITH  THE 

C i-TRSI  OIKcCTICN 

Vs  UNatf. 

SParf. 

no  S7  laltN 

I-I  II  aOMULT*  Xf  I »»  ANHLLTaPI  II 

UNaUN^fl  1l»Pt  1 1 

NC1>N0*I 

SP-SP»Ff II*W( NUl  I 
5 7 CONTINUE 

OS  aw.  ^5  •UN 

C TEST  kHETHER  an  EXTRA  STEP  IS  NEEDED  fUR 

C INDEPENDENCE 

IPIWINOC  *1>*0TESTI5««5A,S9 
59  iF(SP»SP-0S)6e*sa,5< 

C TAKE  THE  EaTRA  STEP  AND  UPDATE  hE  DIRECTION  MATRIX 
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VOLUK5  I! 

listing  UF  PFUGKiJM  u-S78e 


PAGc  A-5iJ 


SO 

b t) 


t 1 


(j  3 

b4i! 


05 

66 


6 7 


NH 

6V 

OO 


c 


71 


I S*«: 

DC  bi  1=1, N 
NXI=NX»I 
NC1=ND< 1 
NGCI =NOt  »I 

X4I»=WIN'XI  l♦DSTEF•^•<  M:1  » 
w(N0Ci)  = N4NCCI*i  . 

CUNT  INUE 
w|NO>=l  . 

OC  o2  1=1, N 
NaNO  »I 
SP«t<(  Kl 
DO  63  J = 2,N 
KN*K«N 
•«(KI  awlKNI 
K3KN 

CUNT  INUt 
«IX»=SP 
OQNT INUf 
GU  TL  1 

FxPhFSS  THc  Nc«  ClKECTICK  IN  TEhkS  OF  THOSfe  OF  THE 
ulPECTloN  MATRIX, ANC  UPCAT6  THE  COUNTS  IN  wINCC  + l* 
rTC. 

SP»i'  , 


N aNO 

OU  6 *1  I = I , N 

X (H»0« 

n6»i3 . 

00  65  J»1,N 
KaK  ► I 

OWaOk»F4Jl  •WIKI 

CONTINUE 

bOTO  l68,o6l,lS 

NCCI  aNUC  »1 

MlNOCl  laHiNOCIM  1. 

6PaSP»UN*0M 

IF  ( SP*0S)oX»,AA,67 

ISal 

NK«  I 

X|ll>Oli 

bU  TC  6V 

X(l»  aOW 

NOCl «N0C«1 

t((NOCllaN(NOCl«ll*l. 
bUNT  INUE 
^(NO  !■!  . 

KELNCER  the  OlKECTiClkS  SO  THAT  KK  IS  FIRST 

IF  I AK-1 1 7A*  7i4,71 

KS«NCC  »KK*N 

00  72  lal.N 

KaKS  »I 

SPaH(K) 

00  73  Ja^,KK 
NNaK-N 
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vCLU^t  11 

lIIjTING  Uf"  t'i'OGhAH  oj^STot 


PAGe  A-51 


■^iKl  -nlKNl" 

7 3 CONT  iNUfc 

rtUl  =SP 

7.;  uUNUNUF 

t GtNEPATE  THE  NEW  CHThCGCNAL  ulRECflON  MATRIX 

/>.'  U»J7*»  l-i»N 

Nwl=  RW*1 
>* i NW  II  =«'  . 

7w  continue 

SP*X(1 ) >X1 1 I 
K»NO 

no  75  I = <!,N 

0S  = S£RT1  SH*<  5P*X*  n Ml  I ) J » 

nw=SP/os 

ns=x  U 1/OS 

bP=iF*xi  II  *x(  n 

U 0 7 6 J=  I , N 

K aR  ♦ 1 

Nk  J=  NW  ♦ J 

KNaK ♦N 

MlNaJiaitlNnJMXl  I>1  I AW  IK) 

.^IKI  3i)w*W(KN)  -0S«W1  R4U« 

7b  CUNT  INUt 

7«;  CGNTINoc 

S»*:  ./SOKTi  0N» 

00  7 7 I'-l.N 
X *K*  I 

W(K1 aSP*F( II 
n CONTINUE 

C CALV.CLATE  THE  NEXT  ViCTCH  X,ANC  PRECICT  THE  RIGHT 

HANG  SIDES 
dJ  FNP».J. 

K »d 

OU  7d  lal.N 
NXlaNX»I 
NF  i»  NF-Ai 
NWl>RW»| 

Xi  II  >W(NX1  MF  1 1 I 
WlNWn  aWlNFl  I 
UU  li  J«1.N 
K«K»1 

nINwIMnINwI  I »W(  Xl«F4J) 

I'i  CONTINUE 

FNP»FNP»W(  NH 1 I • Ax 
78  CONTINUE 

C CALL  CALFUN  using  THI  NEW  VECTOR  OF  VARIABLES 

GO  TC  I 

^ JPOATc  TFE  STEP  SIZE 

27  ONULT«ii.V*FMINbiaAfNf-*FSQ 

IF  I CHULTlax  •81*81 
B2  JO-APAXl  iCSSf  Bw2S*00| 

r iNC«i. 

IF  |FSQ-FMlNia>*28»ZJ 
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VOLUME  li 

LlSTINb  UP  PfiOGKAM  OeS78£ 


PAGE  A>52 


C IkY  IHE  test  TJ  CECJGt  WhEThER  TG  INCREASE  THE  STEP 

c length 

ol  SP»^. 

SS^ij  . 

Ou  d <•  I = I iN 

NmA^Nn*! 

SP>SPfA8S(f(  ll*<  F4  DHMiAtol  Xl 
SS*SS»lP(li-N(Nw(liAA2 
84  CONTINUE 

PJ~1  .►OMULT  /I  SP*SCH<  SF*SP*CMULI*SS  » » 

SP^APINI  (<*.,TINC.PJ  I 
TINCaP J/SP 
JO*AP|Nl (0N,SP*CCI 
GO  TC  dJ 

L IP  P(X»  IMPROVES  STCRE  THE  KEn  VALUE  OF  K 

a?  IF4FSJ-FP»N»83,5^*5^ 

88  PM1N«CS0 

jC  8d  IaI<N 
SP*X  (I  T 
NA!sNX»I 
NFI*NF*I 

NmI aNN» I 
8(11 aH( NXI t 
H(NXI)  aSP 
SP  = F (II 
P4  II  aW(NPII 
hINFIUSP 
H(  NM  II  a-  G4NWI  I 
ds  CONTINUE 

TF4  I S-I I 28.^U,5«) 

C CALCLLATE  THE  CHANGES  IN  F ANO  IN  X 

no  00  8 9 I a I , N 

N«laNX»l 
NFlaNF»I 

X4II>XIII-«4(NX|I 
P4  II  >F(  ll-KlNFI  I 

89  CONTINUE 

C UPDATE  THE  APPMCXIM/I ICKS  TC  J AND  TC  AJ  INV 

Ka0 

DO  9il  I>UN 
Mm1shm<»I 
NHl>Nt4»I 
W(PMll«X( II 
M4NI4II  aP4II 
00  91  J>1.N 

M4  MmTI  ■!«(  PWI  I- AJ  lNV<i«  J I*F|JI 
NaK»  I 

M(Ni4II>  NlNhll-MlKl  AXIJI 
9 1 CONTINUE 

9 k.  CONTINUE 

SPa0. 

SS>0. 

ou  9X  1>1  .N 
OSa0  . 
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VCLUPE  II 

LliTtNO  UF  PFQGKAM  Geb7ttfc 


PAGE 


DL  -#3  J=1,N 
Jb=OS^AJ  INV(  J,  T »*X  S J* 

Vi  CUNIINUE 

SP=SF»0S*F( 1 1 
:>S=S  S»XI  U AX  ( 11 
P (I) =0S 

■H  CUNTINUe 

iJMUL  T=l. 

IF  ( ABbl  SPt-t;.  lASii  SA,95,'^5 
3A  UMULT=J.8 

vb  PJ=0^ULT/SS 

PMsOfULT/I CMLLT*SP^4 1 . -CHULT 1 *5 S » 

K Skj 

DU  9 6 1 = 1 ,N 

^WI=^W»I 

MWlaf'W*! 

SPsP  J»W(  Ni»I» 
bS>PA*hl  Mt<Ii 
OL  97  J=1,N 
K =K  »•  I 

h(K1 sWiXt  »SP*X(J ) 

A JINVI  I , Ji»AJlNV<  I,  •A»SS*F(  Jl 
97  continue 

9o  CONTINUE 

Gu  T C j 3 
ENG 
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APPENCIX  { 

VEHICLE  IN^ur  FILES  FUP  PPQGRAH  OBS78& 


I'  “ ^ K b <>  t 

VOLUME  !! 

PAGE  8-2 

VfcHlCLE 

INk'UT  riLE  PCS 

PPCGPiH 

LeS78fc  - H63A1  TANK 

1 

\ i J \ 

NUMT  S,  ASUS  P.NVtH,  NFL 

« 

c J . 

b . 

HITCH  HEIGHT  ANL  LOAD 

> 

^ 1 

dUGIE  iNClCATOkS 

1 

1 1 i 1 

PChEA  INOiCATOAS 

1111 

BAAKE  INCICATORS 

17  .b 

17. b 

ROLLING  PACIUS 

Idb  .lb 

d6.  K 

HITCH  TC  SUPPORT  CENTER 

.3 

id  .3 

BOGIE  nICTH 

Jk*  . 

7. 

BCGIE  LlMIT-UP 

-7  . 

-33. 

BOGIE  L IHIT-COMN 

1 1 c'.ft,  <*7  7S<*  . 

AXLE  LCAC-EMPTY 

1 

5 j . o2 

e. 

VEH.  CG  AbOVE  GROUND 

I 

U<,.^ 

bi.62  J. 

3. 

LCAO  Cg  MRT  GROUNC 

1 

i 

tJ  • 

3. 

LOAC 

C 9. 

VEH  BUTICM  POINTS  NPTS Cl , NPT SC2 

' 

i 73 .5 

k.  b . 3 . 

43. 

XCLClil)  »YCLCllll  .l>UNPrSCi 

•1  1 1 i* 

1 1 

SFLAGI  I).lP<I.lt.lBll,ll,Is4tb 

1 

<:53.31 

17.62 

2 3.6 

41.25  I4.b2  ELLlD.ZSin  .EFPRADlil, 

I 

i 

I*4»  5 

L 

1 
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VL'LU^E  II 

APPENDIX  e - VEHICLE  INPCT  f iL  E FCI-  PKOGHAM  OBS780  - Mi51  JEEP 


MISIA^  - 
1 2 1 » 

18  • ki. 

l:  il  2 

i 3 1 J i d 
I V I ^ a d 

l<t.  1<>.  3. 

113.  28.  k}. 

kj  • Zm  k/ . 

0 « 0 . 

0 • it  li  • 

ij<tii.  lebe.  0. 

25.  18. 

56 . J0.  0.  0. 

5(.0.  0. 

V 0 

13£.  17.  123.  U.  88. 

47.  1^.  26.  13. 


M3N1TS«NSUSP«NVEHI,NFL 
HITCH  HEIGHT  ANC  LJAO 
aCGlE  INDICATORS 
PUWER  INDICATORS 

erake  indicators 

POLLING  RADIUS 

HITCH  TO  SUPPORT  POINT 

eOGlE  HlOTH 

BOGIE  LiHir-UP 

BOGIE  LIHIT-OOkIN 

AXLE  LOAO-EHPTY 

VEH.  CG  ABOVE  GROUND 

LOAD  CG  MkT  GROUND 

LOAD 

VEH  BOTTOM  POINTS 
13.15  86.  12.  85.  13  .15 

18.  0.  18. 
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VULUK6  I! 

sample  IEmHAIN  JNP'JT  FIL:  FCH  pFlUPAM  065788 


PAGE  C-2 


K'  e» 

(i3 

03 

3.1  5 

1 W.Jti 

5 .88 

15.7S 

1U.J<) 

5 .58 

iJ.A6 

113. <)» 

. 5.08 

3.1  5 

lA3.Je 

.5.88 

15.75 

1 A2.CC 

5 .88 

i J.  AO 

1A2. 

5 .88 

3.15 

i5A.aj 

5«8fl 

15.75 

15A.^<) 

5 .88 

33. Ab 

15m. 

5.48 

3.i5 

1 bM  . w 

5 .88 

15.75 

16a  .tit) 

5 .88 

33. Aa 

IbA.tltf 

5.88 

3.15 

1)16. Ji) 

5.88 

15.75 

1 5b  .0IU 

5.86 

3 3 . A t> 

19b.dl3 

5.88 

3.1  5 

2li)b.«!e 

5.88 

15.75 

2i£6.dw 

5 .88 

3 3 . A b 

2i^6.0U 

5 .88 

.)  .1  0 

5.88 

1 5.  75 

21 5.3^ 

5.48 

33. Ao 

218. <10 

5 .88 

3.:15 

2A8.00 

5 .88 

15.75 

2A8.00 

5 .86 

33. Ab 

^A8.00 

5.88 

3.15 

112.0.1 

29.86 

15.75 

112.00 

29.08 

33  .A6 

112.00 

29. b« 

3.15 

1A2.00 

29.86 

15.75 

1 A2 .00 

29  .88 

33. Ab 

1A2.00 

29  .08 

3.15 

15A.00 

29.88 

15.  75 

15A.0O 

29.48 

33  .A6 

15A.00 

29.88 

3.15 

16A.00 

29.86 

15.75 

16A.00 

29.88 

33. A6 

lbA.00 

29.48 

3.15 

1 9 b • 3 0 

29.86 

15.75 

1 9b. 00 

29.86 

33  .A  b 

196.30 

29.88 

3.15 

28b. 00 

29. 8« 

15.75 

206.00 

29.88 

33. Ab 

286. 00 

29A88 

3.15 

21 8.00 

29.88 

15. 75 

218.00 

29.88 

33.Ab 

218.00 

29.. 18 

3.15 

2A8.0O 

29.38 

15.75 

2 A 8 . 3 o 

29.88 

33. Ab 

2A9.0e 

29.78 

3 .15 

112.00 

1A1..44 

15.75 

112.00 

lAl .40 

33  .Ab 

112.30 

iAl.iH 
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r-2ybtt,  VCLUfe  II 

bftMPLE  lEhkAIN  INPUT  EILE  FCh  PEuGPAM  OE‘,78E 


3.15 

l9  c 

.A  1 .62 

1 5.75 

U^.dd 

U1  .oO 

33  .<.0 

U2.3J 

4^1  .62 

3.  15 

1 3 ^ • .3  J 

i4 1 .62 

1 5 .75 

1 5 <* . 0 u 

U1  .62 

3 J . Ao 

IbA.Jt' 

19  1 .62 

3.15 

iOH . 

lAl .62 

1 5.75 

1 6 A . ^ J 

UI  .62 

33.^6 

1 oA . i3  J 

U1  .62 

J.  15 

1 '3  6 • u 

.62 

15  .75 

1 9o  . J(3 

lAl .62 

33. A6 

1 96 

l<il  .62 

3.15 

^ 6 * d 

1<«1  .Ati 

15.73 

2 26  .idJ 

141 .62 

33  .‘♦6 

4^6.22 

141  .62 

3.15 

218.2i- 

141.62 

1 5 .73 

213. 

141  .62 

j3  .<*6 

21 3.3v 

141  ..)2 

3.15 

2^3.22 

141.62 

1 5.  75 

141.62 

33  .96 

196,44 

141 .62 

,99^9  99  9 9 9.  ■*9  99  99 -»99t  ,<39 
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--M5B,  vatO^E  II 

^Af‘^LE  CjTPoT  FkLM  C£S7aB  - vEM  ICL  E :Ho^A1  TANK 
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\uhijT 

] 

'i  4N  (j 
j 

•.•CIF 

3 


U L K 1 N 

F COMAX 

FLC 

FGV /LS 

AVALS 

OVALS 

! SChfcS 

PCJNuS 

PGUNC5 

INC*-e5 

FAOiANS 

INCHES 

j7  .(/ j 

6 ->4  0 . 5 

372.1 

3.15 

I .95 

5.88 

27276.4 

1 0 4 ^ . M 

15.75 

1.95 

5.88 

6.57 

49773 .a 

5211.2 

33.46 

1 .95 

5.8a 

37. ei 

s S4o . 5 

394.3 

3.15 

2.46 

5.0a 

J . j (3 

24^73.2 

1624.0 

15.75 

2.46 

5.88 

6.72 

5bl34  .a 

3602.2 

33.46 

2 .40 

5.80 

il  ,ti 

6948.5 

345.0 

3.15 

2.69 

5.88 

2^.56 

1 8569.2 

1 392.5 

.5  .75 

2.^9 

5.88 

1 1.<*J 

32415.7 

3 2 1 6 .3 

33  .40 

2 .69 

5.80 

^0  . 2 

0456.2 

300. a 

3.iJ 

2.86 

5.0a 

c<..3^ 

1 7 64  6 • 0 

1 259.3 

15.75 

2.86 

5.88 

<;k?.A3 

32^44 .5 

< 7 a 7. 9 

33  .46 

2 .a6 

5.o0 

3a  .2^ 

0201  .7 

707.0 

3.15 

3.42 

5.88 

< 1 .2  7 

1 8o99.a 

2246.3 

15.75 

i.42 

5.08 

2 .0  / 

3D244. 3 

2 6 96  • 0 

33 .46 

3.42 

5.80 

4 124.4 

224.7 

3.15 

i •6i< 

5 .00 

31.2  i 

13  <44  .6 

1 544.3 

15.75 

J .60 

5.88 

'*  i . 3 

34  al  6.  J 

:.S4  2.5 

33  .40 

?.6e 

5 . Ou 

^ It  t CZ 

3 75  7 . 7 

<74.3 

3.15 

>.00 

5.08 

JO . w 3 

13166.0 

90  2.9 

15.75 

3.0« 

5.08 

<■  w . ■>  1 

31 o7b. 1 

2o2o.5 

33  .46 

3.60 

5.60 

<*«  .42 

1 612 .7 

3 0.6 

3.15 

4.33 

5.88 

3P.5A 

4 149.3 

145.9 

15.75 

4.33 

5.88 

37.73 

5 566 . 1 

-125.5 

33  .46 

4.33 

5.88 

37.1  j 

4 « 72 . 2 

404.4 

3.15 

1.95 

29.08 

^ £ 6 

12409.2 

- 3 16.4 

15.75 

1 .95 

<9.80 

ts.bl 

7 9 647  .0 

4974.4 

33.46 

1 .95 

29.89 

37.13 

9272.2 

504.0 

3.15 

2.46 

29.66 

2 

20172.6 

062.5 

.5  .75 

2.46 

29.06 

6.62 

51 346.5 

434«.S 

33.46 

2 .46 

29.00 

37.13 

9272.2 

516.7 

3.15 

2.69 

29.80 

24.36 

2O37i.0 

.717.0 

15.75 

2.69 

29.00 

11.72 

34  0O1.7 

3766.5 

33  *46 

2.69 

29.60 

36. 

0456  • 

527.7 

3.15 

2.66 

29.60 

24.6  7 

15926  .4 

1465.5 

15.75 

2.66 

29.00 

20.55 

30  244.5 

3131.9 

33.46 

2.66 

29.06 

j7,17 

6446.1 

629.9 

3.15 

3.42 

29.06 

14.79 

16195.7 

1664. i 

15.75 

3.42 

29.06 

2.92 

10064.5 

304|(.6 

33.46 

3.42 

29.00 

36. •! 

72f6.2 

-21  9.2 

3 .15 

3.60 

29.08 

22.01 

31 161.0 

2<6l.9 

15.75 

3*6« 

29.06 

•11.56 

34  764.1 

3152. • 

33.46 

3.60 

29.66 

36.71 

9361.9 

1001.2 

3.15 

3.l« 

29.66 

<7.21 

20t6l.7 

1637. t 

15.75 

3.60 

29.66 

3.49 

46366.1 

452<.6 

31.46 

1.00 

29.60 

3B.6( 

5564.9 

1 96.1 

3.15 

4.33 

29.06 
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VLUJf-?  II 

j^i'PLE  LuTPUl  PKCH  PKCO«/f  CSSToB 


V EH  iLLExMtoBAl  TANK 


I 

A 


J ? . 

727».* 

jS  . <<  1 

U^53 

j7.l  7 

1 cl Z •Z 

<i‘..77 

0.5^ 

797JA 

j7.1  7 

9<72.^ 

35968.^ 

b,b^ 

5^81 5.6 

37.17 

‘iilc,Z 

c 7603 .b 

1 1 . S'* 

34  888  .9 

JO  •■»  3 

3 4b6. u 

4 H .A6 

I a 74  B . 7 

4J.5‘ 

3«k44 .5 

.7  J 

9 <95.  3 

1 9«.U.^ 

38844. S 

3<*.  i 4 

9326.0 

10.73 

32  34  1.8 

* . 33 

34  36  8. H 

33. SV 

9787  .3 

38383.1 

-1.8  3 

48620.4 

>3.91 

0474  .2 

U.9i 

lo  4*9.** 

- 4 3 .B  3 

79892 .1 

- 1 « 2.0 

i5.75 

759.0 

33.46 

23  1.  1 

3.15 

U42.4 

15  .75 

4401  .1 

33  .46 

236. i 

3.15 

1061.0 

15.75 

3640.1 

33.46 

241.0 

3.15 

1 727.9 

15.75 

33..  6. 2 

03.46 

429.9 

3.15 

1827.2 

15  .75 

BPoa.i 

3 3.46 

4 71.2 

3.15 

k295.-« 

45.75 

3%93.« 

33.46 

7'«1.4 

3.15 

249  7. a 

15.75 

4460.5 

33.46 

452.9 

3.15 

4227.9 

15  .75 

3741  .5 

33  .40 

0 08.^ 

0.15 

*55.9 

15.75 

5167.0 

33.46 

%.J3 

29. ao 

<•.03 

29.8a 

1 .95 

i4  1. 00 

1 .95 

1 4 1 . 68 

1.95 

141  .Bn, 

2.48 

141.60 

2.48 

141.60 

2 .48 

141.60 

2.6V 

141.60 

2.09 

141.60 

2 .69 

141.68 

2.86 

141.60 

2.86 

141.60 

2.86 

141.60 

3.42 

141.00 

o.‘*2 

1 4l .Ob 

3.42 

l4l .00 

3.68 

141.60 

3.68 

141 .60 

3.60 

141.62 

3.80 

141.00 

3.80 

141.00 

3.80 

U:.60 

4 «o3 

141.62 

4.38 

141.60 

4.30 

141.60 

PAUE  D-  J 


'-4. 


t 
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PACE  D--. 


'-it-ba,  VULUMd  II 

ii^-PLc  ^uTPuT  tkCH  PKlGhIH  CEl>7aB  - V£hICL£:Hl5l  JEEP 


NHhG  T 

f.»\G 


a 

N '<*  C T t 
) 


. LRPl  N 

PCDHAX 

fOU 

PCV ALS 

AV  AL5 

0VALS 

I \Cnt S 

PCUNCS 

PCU6C5 

INCPEi 

10  IANS 

INCHES 

0 • a 5 

54  1 • b 

3 1.2 

3 .15 

1.95 

5.88 

-3.7b 

2 179.C 

12  7. i 

15  .75 

1 .95 

5.88 

- c 1 .£  1 

2228.5 

2 37.5 

33  .46 

1.95 

5.B8 

6 . b 5 

1 215.5 

35.6 

3.15 

2 .48 

5.88 

-3.5-* 

1 ?b  1.  2 

1 1 S.7 

15.75 

2.48 

5.88 

-1 a.36 

96  2.9 

16  2.6 

33.40 

2.48 

5.88 

0 .o5 

6«b.  1 

25.5 

3.15 

2.69 

5.88 

.j  1 

696.7 

124.9 

15.75 

2 .69 

5.88 

- 3. Sr  5 

(46  .3 

9b. 2 

33  .46 

2.69 

5.68 

7.45 

411.2 

34.3 

3.15 

2.86 

5.b8 

^.53 

4 24  • b 

69.7 

15  .73 

2.86 

5.88 

<:.bl 

799.3 

9b. i 

33  .46 

2.86 

3.88 

7.1'# 

417, 7 

42.9 

3.15 

3.42 

5.88 

5 .5<3 

444.5 

88.7 

15.75 

3 .4  2 

5.88 

1.44 

799. 3 

lb  J.9 

31.46 

3.42 

5.88 

7.4i 

724.7 

35.5 

3.15 

3.00 

5.88 

1 .2i 

757.6 

135.1 

15  .75 

3.bi« 

5.88 

-4.8  3 

639.1 

b35.3 

3 i ,46 

3 .64 

5.88 

a.<!<3 

662.5 

1 6.3 

3.15 

3.82 

5.88 

.48 

1 172.4 

18».3 

15.75 

3 .80 

5.88 

-V  .54 

1 3i11.5 

24  ti.S 

31.46 

3.80 

5.80 

S.63 

344.3 

4.8 

3.15 

4.33 

5.88 

5.79 

1 152.6 

43.5 

15.75 

4.33 

5.88 

- j 

2376.2 

I'tO.ll 

33  .4o 

4.33 

5.88 

b.bb 

592 .1 

- 2.8 

3.i5 

1 .95 

29.88 

- J.75 

2 163.4 

»9.1 

15.75 
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